home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1994-09-21 | 20.1 KB | [TEXT/ALFA] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Wed Sep 21 08:40:34 1994, modified Wed Sep 21 08:40:34 1994, creator Alpha editor, type ASCII, 19397 bytes "modes.tcl" , at 0x4c45 898 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [ALFA] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 6d 6f 64 65 73 2e | 74 63 6c 00 00 00 00 00 |..modes.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 4b c5 00 | 00 03 82 aa a5 da 42 aa |.....K..|......B.|
|00000060| a5 da 42 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..B.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 49 6d 00 00 |........|....Im..|
|00000080| 23 20 4e 65 77 20 6d 6f | 64 65 73 20 63 61 6e 20 |# New mo|des can |
|00000090| 62 65 20 73 70 65 63 69 | 66 69 65 64 20 62 79 20 |be speci|fied by |
|000000a0| 61 70 70 65 6e 64 69 6e | 67 20 74 6f 20 74 68 65 |appendin|g to the|
|000000b0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 76 61 72 73 2e | followi|ng vars.|
|000000c0| 0d 23 20 61 72 65 20 6e | 6f 20 6c 6f 6e 67 65 72 |.# are n|o longer|
|000000d0| 20 61 6e 79 20 70 72 6f | 63 73 20 73 75 63 68 20 | any pro|cs such |
|000000e0| 61 73 20 27 73 65 74 54 | 65 78 74 4d 6f 64 65 27 |as 'setT|extMode'|
|000000f0| 20 65 74 63 2e 0d 0d 23 | 20 27 6d 6f 64 65 27 20 | etc...#| 'mode' |
|00000100| 69 73 20 6e 6f 74 68 69 | 6e 67 20 77 68 65 6e 20 |is nothi|ng when |
|00000110| 77 65 20 73 74 61 72 74 | 20 75 70 2e 0d 73 65 74 |we start| up..set|
|00000120| 20 6d 6f 64 65 20 22 22 | 0d 0d 73 65 74 20 77 68 | mode ""|..set wh|
|00000130| 69 63 68 49 6e 66 6f 20 | 6d 6f 64 65 0d 0d 23 3d |ichInfo |mode..#=|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000190| 23 20 54 68 65 20 6e 65 | 78 74 20 74 77 6f 20 70 |# The ne|xt two p|
|000001a0| 72 6f 63 73 20 61 72 65 | 20 63 61 6c 6c 65 64 20 |rocs are| called |
|000001b0| 62 79 20 41 6c 70 68 61 | 20 74 6f 20 68 61 6e 64 |by Alpha| to hand|
|000001c0| 6c 65 20 74 68 65 20 6d | 6f 64 65 20 66 6c 61 67 |le the m|ode flag|
|000001d0| 73 20 70 6f 70 75 70 20 | 6d 65 6e 75 2e 0d 23 3d |s popup |menu..#=|
|000001e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000230| 0d 70 72 6f 63 20 67 65 | 74 4d 6f 64 65 56 61 6c |.proc ge|tModeVal|
|00000240| 75 65 73 41 6c 70 68 61 | 20 7b 7d 20 7b 0d 09 67 |uesAlpha| {} {..g|
|00000250| 6c 6f 62 61 6c 20 6d 6f | 64 65 0d 09 67 6c 6f 62 |lobal mo|de..glob|
|00000260| 61 6c 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |al ${mod|e}modeVa|
|00000270| 72 73 0d 09 67 6c 6f 62 | 61 6c 20 61 6c 6c 46 6c |rs..glob|al allFl|
|00000280| 61 67 73 0d 09 67 6c 6f | 62 61 6c 20 77 68 69 63 |ags..glo|bal whic|
|00000290| 68 49 6e 66 6f 0d 09 73 | 65 74 20 66 76 61 6c 73 |hInfo..s|et fvals|
|000002a0| 20 7b 7d 0d 09 73 65 74 | 20 76 76 61 6c 73 20 7b | {}..set| vvals {|
|000002b0| 7d 0d 0d 09 69 66 20 7b | 24 77 68 69 63 68 49 6e |}...if {|$whichIn|
|000002c0| 66 6f 20 3d 3d 20 22 6d | 6f 64 65 22 7d 20 7b 0d |fo == "m|ode"} {.|
|000002d0| 09 09 69 66 20 7b 5b 69 | 6e 66 6f 20 65 78 69 73 |..if {[i|nfo exis|
|000002e0| 74 73 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |ts ${mod|e}modeVa|
|000002f0| 72 73 5d 7d 20 7b 0d 09 | 09 09 73 65 74 20 76 61 |rs]} {..|..set va|
|00000300| 72 73 20 5b 6c 73 6f 72 | 74 20 5b 61 72 72 61 79 |rs [lsor|t [array|
|00000310| 20 6e 61 6d 65 73 20 24 | 7b 6d 6f 64 65 7d 6d 6f | names $|{mode}mo|
|00000320| 64 65 56 61 72 73 5d 5d | 0d 09 09 09 66 6f 72 65 |deVars]]|....fore|
|00000330| 61 63 68 20 76 20 24 76 | 61 72 73 20 7b 0d 09 09 |ach v $v|ars {...|
|00000340| 09 09 69 66 20 7b 5b 6c | 73 65 61 72 63 68 20 24 |..if {[l|search $|
|00000350| 61 6c 6c 46 6c 61 67 73 | 20 24 76 5d 20 3e 3d 20 |allFlags| $v] >= |
|00000360| 30 7d 20 7b 0d 09 09 09 | 09 09 6c 61 70 70 65 6e |0} {....|..lappen|
|00000370| 64 20 66 76 61 6c 73 20 | 24 76 20 5b 73 65 74 20 |d fvals |$v [set |
|00000380| 24 7b 6d 6f 64 65 7d 6d | 6f 64 65 56 61 72 73 28 |${mode}m|odeVars(|
|00000390| 24 76 29 5d 0d 09 09 09 | 09 7d 20 65 6c 73 65 20 |$v)]....|.} else |
|000003a0| 7b 0d 09 09 09 09 09 6c | 61 70 70 65 6e 64 20 76 |{......l|append v|
|000003b0| 76 61 6c 73 20 24 76 20 | 30 0d 09 09 09 09 7d 0d |vals $v |0.....}.|
|000003c0| 09 09 09 7d 0d 09 09 7d | 0d 09 09 72 65 74 75 72 |...}...}|...retur|
|000003d0| 6e 20 5b 63 6f 6e 63 61 | 74 20 24 66 76 61 6c 73 |n [conca|t $fvals|
|000003e0| 20 7b 2d 7d 20 30 20 24 | 76 76 61 6c 73 20 7b 7b | {-} 0 $|vvals {{|
|000003f0| 28 2d 7d 20 30 20 22 53 | 65 74 20 4d 6f 64 65 20 |(-} 0 "S|et Mode |
|00000400| 4d 65 6e 75 73 c9 22 20 | 30 20 22 43 68 61 6e 67 |Menus." |0 "Chang|
|00000410| 65 20 4d 6f 64 65 20 56 | 61 72 73 c9 22 20 30 20 |e Mode V|ars." 0 |
|00000420| 22 44 65 73 63 72 69 62 | 65 20 4d 6f 64 65 22 20 |"Describ|e Mode" |
|00000430| 30 20 7b 28 2d 7d 20 30 | 20 22 28 4d 6f 64 65 20 |0 {(-} 0| "(Mode |
|00000440| 49 6e 66 6f 22 20 30 20 | 22 46 69 6c 65 20 49 6e |Info" 0 |"File In|
|00000450| 66 6f 22 20 30 7d 5d 0d | 09 7d 20 65 6c 73 65 20 |fo" 0}].|.} else |
|00000460| 7b 0d 09 09 67 65 74 57 | 69 6e 49 6e 66 6f 20 62 |{...getW|inInfo b|
|00000470| 6c 61 68 0d 09 09 6c 61 | 70 70 65 6e 64 20 6d 20 |lah...la|ppend m |
|00000480| 22 4d 61 63 22 20 5b 65 | 78 70 72 20 7b 24 62 6c |"Mac" [e|xpr {$bl|
|00000490| 61 68 28 70 6c 61 74 66 | 6f 72 6d 29 20 3d 3d 20 |ah(platf|orm) == |
|000004a0| 22 6d 61 63 22 7d 5d 0d | 09 09 6c 61 70 70 65 6e |"mac"}].|..lappen|
|000004b0| 64 20 6d 20 22 55 4e 49 | 58 22 20 5b 65 78 70 72 |d m "UNI|X" [expr|
|000004c0| 20 7b 24 62 6c 61 68 28 | 70 6c 61 74 66 6f 72 6d | {$blah(|platform|
|000004d0| 29 20 3d 3d 20 22 75 6e | 69 78 22 7d 5d 0d 09 09 |) == "un|ix"}]...|
|000004e0| 6c 61 70 70 65 6e 64 20 | 6d 20 22 49 42 4d 22 20 |lappend |m "IBM" |
|000004f0| 5b 65 78 70 72 20 7b 24 | 62 6c 61 68 28 70 6c 61 |[expr {$|blah(pla|
|00000500| 74 66 6f 72 6d 29 20 3d | 3d 20 22 69 62 6d 22 7d |tform) =|= "ibm"}|
|00000510| 5d 20 7b 28 2d 7d 20 30 | 0d 09 09 6c 61 70 70 65 |] {(-} 0|...lappe|
|00000520| 6e 64 20 6d 20 22 4d 50 | 57 22 20 5b 65 78 70 72 |nd m "MP|W" [expr|
|00000530| 20 7b 24 62 6c 61 68 28 | 73 74 61 74 65 29 20 3d | {$blah(|state) =|
|00000540| 3d 20 22 6d 70 77 22 7d | 5d 0d 09 09 6c 61 70 70 |= "mpw"}|]...lapp|
|00000550| 65 6e 64 20 6d 20 22 54 | 68 69 6e 6b 22 20 5b 65 |end m "T|hink" [e|
|00000560| 78 70 72 20 7b 24 62 6c | 61 68 28 73 74 61 74 65 |xpr {$bl|ah(state|
|00000570| 29 20 3d 3d 20 22 74 68 | 69 6e 6b 22 7d 5d 0d 09 |) == "th|ink"}]..|
|00000580| 09 6c 61 70 70 65 6e 64 | 20 6d 20 22 4e 6f 6e 65 |.lappend| m "None|
|00000590| 22 20 5b 65 78 70 72 20 | 7b 24 62 6c 61 68 28 73 |" [expr |{$blah(s|
|000005a0| 74 61 74 65 29 20 3d 3d | 20 22 6e 6f 6e 65 22 7d |tate) ==| "none"}|
|000005b0| 5d 20 7b 28 2d 7d 20 30 | 0d 09 09 6c 61 70 70 65 |] {(-} 0|...lappe|
|000005c0| 6e 64 20 6d 20 22 52 65 | 61 64 20 4f 6e 6c 79 22 |nd m "Re|ad Only"|
|000005d0| 20 24 62 6c 61 68 28 72 | 65 61 64 2d 6f 6e 6c 79 | $blah(r|ead-only|
|000005e0| 29 20 7b 28 2d 7d 20 30 | 0d 09 09 6c 61 70 70 65 |) {(-} 0|...lappe|
|000005f0| 6e 64 20 6d 20 22 54 61 | 62 20 53 69 7a 65 22 20 |nd m "Ta|b Size" |
|00000600| 30 20 7b 28 2d 7d 20 30 | 0d 09 09 6c 61 70 70 65 |0 {(-} 0|...lappe|
|00000610| 6e 64 20 6d 20 22 4d 6f | 64 65 20 49 6e 66 6f 22 |nd m "Mo|de Info"|
|00000620| 20 30 20 22 28 46 69 6c | 65 20 49 6e 66 6f 22 20 | 0 "(Fil|e Info" |
|00000630| 30 0d 09 09 72 65 74 75 | 72 6e 20 24 6d 0d 09 7d |0...retu|rn $m..}|
|00000640| 0d 7d 0d 0d 0d 70 72 6f | 63 20 73 65 74 4d 6f 64 |.}...pro|c setMod|
|00000650| 65 56 61 72 41 6c 70 68 | 61 20 7b 76 61 72 7d 20 |eVarAlph|a {var} |
|00000660| 7b 0d 09 67 6c 6f 62 61 | 6c 20 6d 6f 64 65 20 61 |{..globa|l mode a|
|00000670| 6c 6c 46 6c 61 67 73 20 | 6d 6f 64 65 56 61 72 73 |llFlags |modeVars|
|00000680| 20 6d 6f 64 69 66 69 65 | 64 4d 6f 64 65 56 61 72 | modifie|dModeVar|
|00000690| 73 0d 09 67 6c 6f 62 61 | 6c 20 77 68 69 63 68 49 |s..globa|l whichI|
|000006a0| 6e 66 6f 0d 09 67 6c 6f | 62 61 6c 20 24 7b 6d 6f |nfo..glo|bal ${mo|
|000006b0| 64 65 7d 6d 6f 64 65 56 | 61 72 73 0d 09 0d 09 69 |de}modeV|ars....i|
|000006c0| 66 20 7b 24 77 68 69 63 | 68 49 6e 66 6f 20 3d 3d |f {$whic|hInfo ==|
|000006d0| 20 22 66 69 6c 65 22 7d | 20 7b 0d 09 09 73 65 74 | "file"}| {...set|
|000006e0| 20 76 61 72 20 5b 73 74 | 72 69 6e 67 20 74 6f 6c | var [st|ring tol|
|000006f0| 6f 77 65 72 20 24 76 61 | 72 5d 0d 09 09 73 77 69 |ower $va|r]...swi|
|00000700| 74 63 68 20 24 76 61 72 | 20 7b 0d 09 09 09 22 75 |tch $var| {...."u|
|00000710| 6e 69 78 22 09 09 2d 0d | 09 09 09 22 6d 61 63 22 |nix"..-.|..."mac"|
|00000720| 09 09 2d 0d 09 09 09 22 | 69 62 6d 22 09 09 7b 20 |..-...."|ibm"..{ |
|00000730| 73 65 74 57 69 6e 49 6e | 66 6f 20 70 6c 61 74 66 |setWinIn|fo platf|
|00000740| 6f 72 6d 20 24 76 61 72 | 20 7d 0d 09 09 09 22 6d |orm $var| }...."m|
|00000750| 70 77 22 09 09 2d 0d 09 | 09 09 22 74 68 69 6e 6b |pw"..-..|.."think|
|00000760| 22 09 09 2d 0d 09 09 09 | 22 6e 6f 6e 65 22 09 09 |"..-....|"none"..|
|00000770| 7b 20 73 65 74 57 69 6e | 49 6e 66 6f 20 73 74 61 |{ setWin|Info sta|
|00000780| 74 65 20 24 76 61 72 20 | 7d 0d 09 09 09 22 6d 6f |te $var |}...."mo|
|00000790| 64 65 20 69 6e 66 6f 22 | 09 7b 20 73 65 74 20 77 |de info"|.{ set w|
|000007a0| 68 69 63 68 49 6e 66 6f | 20 6d 6f 64 65 20 7d 0d |hichInfo| mode }.|
|000007b0| 09 09 09 22 74 61 62 20 | 73 69 7a 65 22 20 20 7b |..."tab |size" {|
|000007c0| 0d 09 09 09 09 67 65 74 | 57 69 6e 49 6e 66 6f 20 |.....get|WinInfo |
|000007d0| 61 72 72 0d 09 09 09 09 | 69 66 20 7b 21 5b 63 61 |arr.....|if {![ca|
|000007e0| 74 63 68 20 7b 70 72 6f | 6d 70 74 20 22 4e 65 77 |tch {pro|mpt "New|
|000007f0| 20 74 61 62 20 73 69 7a | 65 3f 22 20 24 61 72 72 | tab siz|e?" $arr|
|00000800| 28 74 61 62 73 69 7a 65 | 29 7d 20 72 65 73 5d 7d |(tabsize|)} res]}|
|00000810| 20 7b 0d 09 09 09 09 09 | 73 65 74 57 69 6e 49 6e | {......|setWinIn|
|00000820| 66 6f 20 74 61 62 73 69 | 7a 65 20 24 72 65 73 0d |fo tabsi|ze $res.|
|00000830| 09 09 09 09 7d 0d 09 09 | 09 7d 0d 09 09 09 22 72 |....}...|.}...."r|
|00000840| 65 61 64 20 6f 6e 6c 79 | 22 09 7b 20 0d 09 09 09 |ead only|".{ ....|
|00000850| 09 67 65 74 57 69 6e 49 | 6e 66 6f 20 62 0d 09 09 |.getWinI|nfo b...|
|00000860| 09 09 73 65 74 57 69 6e | 49 6e 66 6f 20 72 65 61 |..setWin|Info rea|
|00000870| 64 2d 6f 6e 6c 79 20 5b | 65 78 70 72 20 2d 31 20 |d-only [|expr -1 |
|00000880| 2a 20 28 24 62 28 72 65 | 61 64 2d 6f 6e 6c 79 29 |* ($b(re|ad-only)|
|00000890| 20 2d 20 31 29 5d 7d 0d | 09 09 7d 0d 09 09 72 65 | - 1)]}.|..}...re|
|000008a0| 74 75 72 6e 0d 09 7d 0d | 09 09 09 0d 09 69 66 20 |turn..}.|.....if |
|000008b0| 7b 24 76 61 72 20 3d 3d | 20 22 53 65 74 20 4d 6f |{$var ==| "Set Mo|
|000008c0| 64 65 20 4d 65 6e 75 73 | c9 22 7d 20 7b 0d 09 09 |de Menus|."} {...|
|000008d0| 73 65 74 4d 6f 64 65 4d | 65 6e 75 73 0d 09 7d 20 |setModeM|enus..} |
|000008e0| 65 6c 73 65 69 66 20 7b | 24 76 61 72 20 3d 3d 20 |elseif {|$var == |
|000008f0| 22 46 69 6c 65 20 49 6e | 66 6f 22 7d 20 7b 0d 09 |"File In|fo"} {..|
|00000900| 09 73 65 74 20 77 68 69 | 63 68 49 6e 66 6f 20 66 |.set whi|chInfo f|
|00000910| 69 6c 65 0d 09 7d 20 65 | 6c 73 65 69 66 20 7b 24 |ile..} e|lseif {$|
|00000920| 76 61 72 20 3d 3d 20 22 | 4d 6f 64 65 20 49 6e 66 |var == "|Mode Inf|
|00000930| 6f 22 7d 20 7b 0d 09 09 | 73 65 74 20 77 68 69 63 |o"} {...|set whic|
|00000940| 68 49 6e 66 6f 20 6d 6f | 64 65 0d 09 7d 20 65 6c |hInfo mo|de..} el|
|00000950| 73 65 69 66 20 7b 24 76 | 61 72 20 3d 3d 20 22 43 |seif {$v|ar == "C|
|00000960| 68 61 6e 67 65 20 4d 6f | 64 65 20 56 61 72 73 c9 |hange Mo|de Vars.|
|00000970| 22 7d 20 7b 0d 09 09 73 | 65 74 20 6d 76 61 72 73 |"} {...s|et mvars|
|00000980| 20 7b 7d 0d 09 09 63 61 | 74 63 68 20 7b 73 65 74 | {}...ca|tch {set|
|00000990| 20 6d 76 61 72 73 20 5b | 61 72 72 61 79 20 6e 61 | mvars [|array na|
|000009a0| 6d 65 73 20 24 7b 6d 6f | 64 65 7d 6d 6f 64 65 56 |mes ${mo|de}modeV|
|000009b0| 61 72 73 5d 7d 0d 09 09 | 73 65 74 20 76 61 72 73 |ars]}...|set vars|
|000009c0| 20 5b 6c 69 73 74 70 69 | 63 6b 20 2d 6c 20 2d 4c | [listpi|ck -l -L|
|000009d0| 20 24 6d 76 61 72 73 20 | 2d 70 20 22 53 65 74 20 | $mvars |-p "Set |
|000009e0| 6d 6f 64 65 20 76 61 72 | 73 20 66 6f 72 20 27 24 |mode var|s for '$|
|000009f0| 6d 6f 64 65 27 3a 22 20 | 5b 6c 73 6f 72 74 20 24 |mode':" |[lsort $|
|00000a00| 6d 6f 64 65 56 61 72 73 | 5d 5d 0d 09 09 69 66 20 |modeVars|]]...if |
|00000a10| 7b 21 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 |{![strin|g length|
|00000a20| 20 24 76 61 72 73 5d 7d | 20 72 65 74 75 72 6e 0d | $vars]}| return.|
|00000a30| 09 09 0d 09 09 63 61 74 | 63 68 20 7b 75 6e 73 65 |.....cat|ch {unse|
|00000a40| 74 20 24 7b 6d 6f 64 65 | 7d 6d 6f 64 65 56 61 72 |t ${mode|}modeVar|
|00000a50| 73 7d 0d 09 09 66 6f 72 | 65 61 63 68 20 76 20 24 |s}...for|each v $|
|00000a60| 76 61 72 73 20 7b 0d 09 | 09 09 67 6c 6f 62 61 6c |vars {..|..global|
|00000a70| 20 24 76 0d 09 09 09 73 | 65 74 20 24 7b 6d 6f 64 | $v....s|et ${mod|
|00000a80| 65 7d 6d 6f 64 65 56 61 | 72 73 28 24 76 29 20 5b |e}modeVa|rs($v) [|
|00000a90| 73 65 74 20 24 76 5d 0d | 09 09 7d 0d 09 7d 20 65 |set $v].|..}..} e|
|00000aa0| 6c 73 65 69 66 20 7b 24 | 76 61 72 20 3d 3d 20 22 |lseif {$|var == "|
|00000ab0| 44 65 73 63 72 69 62 65 | 20 4d 6f 64 65 22 7d 20 |Describe| Mode"} |
|00000ac0| 7b 0d 09 09 64 65 73 63 | 72 69 62 65 4d 6f 64 65 |{...desc|ribeMode|
|00000ad0| 0d 09 7d 20 65 6c 73 65 | 69 66 20 7b 5b 6c 73 65 |..} else|if {[lse|
|00000ae0| 61 72 63 68 20 24 61 6c | 6c 46 6c 61 67 73 20 24 |arch $al|lFlags $|
|00000af0| 76 61 72 5d 20 3e 3d 20 | 30 7d 20 7b 0d 09 09 67 |var] >= |0} {...g|
|00000b00| 6c 6f 62 61 6c 20 24 76 | 61 72 0d 09 09 73 65 74 |lobal $v|ar...set|
|00000b10| 20 24 7b 6d 6f 64 65 7d | 6d 6f 64 65 56 61 72 73 | ${mode}|modeVars|
|00000b20| 28 24 76 61 72 29 20 5b | 73 65 74 20 24 76 61 72 |($var) [|set $var|
|00000b30| 20 5b 65 78 70 72 20 2d | 31 20 2a 20 28 5b 73 65 | [expr -|1 * ([se|
|00000b40| 74 20 24 7b 6d 6f 64 65 | 7d 6d 6f 64 65 56 61 72 |t ${mode|}modeVar|
|00000b50| 73 28 24 76 61 72 29 5d | 20 2d 20 31 29 5d 5d 0d |s($var)]| - 1)]].|
|00000b60| 09 09 6c 61 70 70 65 6e | 64 20 6d 6f 64 69 66 69 |..lappen|d modifi|
|00000b70| 65 64 4d 6f 64 65 56 61 | 72 73 20 5b 6c 69 73 74 |edModeVa|rs [list|
|00000b80| 20 24 76 61 72 20 24 7b | 6d 6f 64 65 7d 6d 6f 64 | $var ${|mode}mod|
|00000b90| 65 56 61 72 73 5d 0d 09 | 7d 20 65 6c 73 65 20 7b |eVars]..|} else {|
|00000ba0| 0d 09 09 67 6c 6f 62 61 | 6c 20 24 76 61 72 0d 09 |...globa|l $var..|
|00000bb0| 09 73 65 74 20 72 65 73 | 20 5b 70 72 6f 6d 70 74 |.set res| [prompt|
|00000bc0| 20 22 4e 65 77 20 76 61 | 6c 75 65 20 6f 66 20 27 | "New va|lue of '|
|00000bd0| 24 76 61 72 27 3a 22 20 | 5b 73 65 74 20 24 7b 6d |$var':" |[set ${m|
|00000be0| 6f 64 65 7d 6d 6f 64 65 | 56 61 72 73 28 24 76 61 |ode}mode|Vars($va|
|00000bf0| 72 29 5d 5d 0d 09 09 73 | 65 74 20 24 7b 6d 6f 64 |r)]]...s|et ${mod|
|00000c00| 65 7d 6d 6f 64 65 56 61 | 72 73 28 24 76 61 72 29 |e}modeVa|rs($var)|
|00000c10| 20 24 72 65 73 0d 09 09 | 73 65 74 20 24 76 61 72 | $res...|set $var|
|00000c20| 20 24 72 65 73 0d 09 09 | 6c 61 70 70 65 6e 64 20 | $res...|lappend |
|00000c30| 6d 6f 64 69 66 69 65 64 | 4d 6f 64 65 56 61 72 73 |modified|ModeVars|
|00000c40| 20 5b 6c 69 73 74 20 24 | 76 61 72 20 24 7b 6d 6f | [list $|var ${mo|
|00000c50| 64 65 7d 6d 6f 64 65 56 | 61 72 73 5d 0d 09 7d 0d |de}modeV|ars]..}.|
|00000c60| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|00000c70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cb0| 3d 3d 3d 3d 0d 0d 0d 23 | 20 53 75 66 66 69 78 65 |====...#| Suffixe|
|00000cc0| 73 20 75 73 65 64 20 74 | 6f 20 69 6e 69 74 69 61 |s used t|o initia|
|00000cd0| 6c 6c 79 20 64 65 74 65 | 72 6d 69 6e 65 20 6d 6f |lly dete|rmine mo|
|00000ce0| 64 65 20 66 6f 72 20 6e | 65 77 20 77 69 6e 64 6f |de for n|ew windo|
|00000cf0| 77 2e 0d 73 65 74 20 6d | 6f 64 65 53 75 66 66 69 |w..set m|odeSuffi|
|00000d00| 78 65 73 20 7b 20 64 65 | 66 61 75 6c 74 20 7b 20 |xes { de|fault { |
|00000d10| 73 65 74 20 77 69 6e 4d | 6f 64 65 20 54 65 78 74 |set winM|ode Text|
|00000d20| 20 7d 20 7d 0d 0d 0d 23 | 20 54 68 65 20 73 65 74 | } }...#| The set|
|00000d30| 20 6f 66 20 6d 65 6e 75 | 73 20 74 68 61 74 20 74 | of menu|s that t|
|00000d40| 68 65 20 6d 6f 64 65 73 | 20 6d 61 79 20 63 68 6f |he modes| may cho|
|00000d50| 6f 73 65 20 74 6f 20 75 | 73 65 2e 0d 73 65 74 20 |ose to u|se..set |
|00000d60| 61 6c 6c 4d 6f 64 65 4d | 65 6e 75 73 20 7b 20 09 |allModeM|enus { .|
|00000d70| 74 68 69 6e 6b 4d 65 6e | 75 20 63 77 61 72 72 69 |thinkMen|u cwarri|
|00000d80| 65 72 4d 65 6e 75 20 74 | 6f 6f 6c 73 65 72 76 65 |erMenu t|oolserve|
|00000d90| 72 4d 65 6e 75 0d 09 09 | 09 09 09 6c 61 74 65 78 |rMenu...|...latex|
|00000da0| 4d 65 6e 75 20 74 68 69 | 6e 6b 52 65 66 4d 65 6e |Menu thi|nkRefMen|
|00000db0| 75 20 74 63 6c 4d 65 6e | 75 20 70 65 72 6c 4d 65 |u tclMen|u perlMe|
|00000dc0| 6e 75 20 7d 0d 0d 73 65 | 74 20 6d 6f 64 65 56 61 |nu }..se|t modeVa|
|00000dd0| 72 73 20 7b 20 65 6c 65 | 63 4c 42 72 61 63 65 20 |rs { ele|cLBrace |
|00000de0| 65 6c 65 63 52 42 72 61 | 63 65 20 65 6c 65 63 74 |elecRBra|ce elect|
|00000df0| 72 69 63 53 65 6d 69 20 | 66 69 6c 6c 43 6f 6c 75 |ricSemi |fillColu|
|00000e00| 6d 6e 20 66 75 6e 63 45 | 78 70 72 20 0d 09 66 75 |mn funcE|xpr ..fu|
|00000e10| 6e 63 50 61 72 20 6f 70 | 74 69 6f 6e 49 73 4d 65 |ncPar op|tionIsMe|
|00000e20| 74 61 20 70 72 65 66 69 | 78 53 74 72 69 6e 67 20 |ta prefi|xString |
|00000e30| 73 75 66 66 69 78 53 74 | 72 69 6e 67 20 6c 65 66 |suffixSt|ring lef|
|00000e40| 74 46 69 6c 6c 43 6f 6c | 75 6d 6e 0d 09 74 61 62 |tFillCol|umn..tab|
|00000e50| 53 69 7a 65 20 77 6f 72 | 64 42 72 65 61 6b 20 77 |Size wor|dBreak w|
|00000e60| 6f 72 64 42 72 65 61 6b | 50 72 65 66 61 63 65 20 |ordBreak|Preface |
|00000e70| 77 6f 72 64 57 72 61 70 | 0d 7d 0d 0d 0d 23 20 54 |wordWrap|.}...# T|
|00000e80| 68 65 20 64 75 6d 6d 79 | 20 70 72 6f 63 20 66 6f |he dummy| proc fo|
|00000e90| 72 20 61 20 6d 6f 64 65 | 20 69 73 20 63 61 6c 6c |r a mode| is call|
|00000ea0| 65 64 20 77 68 65 6e 65 | 76 65 72 20 77 65 20 63 |ed whene|ver we c|
|00000eb0| 68 61 6e 67 65 20 74 6f | 20 74 68 61 74 20 6d 6f |hange to| that mo|
|00000ec0| 64 65 2c 0d 23 20 73 6f | 20 74 68 61 74 20 74 68 |de,.# so| that th|
|00000ed0| 65 20 61 75 74 6f 6c 6f | 61 64 69 6e 67 20 66 61 |e autolo|ading fa|
|00000ee0| 63 69 6c 69 74 79 20 77 | 69 6c 6c 20 6c 6f 61 64 |cility w|ill load|
|00000ef0| 20 74 68 65 20 63 6f 72 | 72 65 63 74 20 66 69 6c | the cor|rect fil|
|00000f00| 65 2c 20 69 66 0d 23 20 | 6e 65 63 65 73 73 61 72 |e, if.# |necessar|
|00000f10| 79 2e 0d 0d 23 20 54 68 | 65 20 6c 69 73 74 20 6f |y...# Th|e list o|
|00000f20| 66 20 6d 6f 64 65 73 2e | 0d 73 65 74 20 6d 6f 64 |f modes.|.set mod|
|00000f30| 65 73 20 09 09 7b 7d 0d | 73 65 74 20 6c 61 73 74 |es ..{}.|set last|
|00000f40| 4d 6f 64 65 20 09 30 0d | 0d 23 20 43 61 6e 20 62 |Mode .0.|.# Can b|
|00000f50| 65 20 75 73 65 64 20 74 | 6f 20 61 64 64 20 6e 65 |e used t|o add ne|
|00000f60| 77 20 6d 6f 64 65 2d 73 | 70 65 63 69 66 69 63 20 |w mode-s|pecific |
|00000f70| 66 6c 61 67 73 20 61 6e | 64 20 76 61 72 69 61 62 |flags an|d variab|
|00000f80| 6c 65 73 20 28 73 65 65 | 20 74 68 69 6e 6b 2e 74 |les (see| think.t|
|00000f90| 63 6c 20 66 6f 72 20 65 | 78 61 6d 70 6c 65 29 2e |cl for e|xample).|
|00000fa0| 0d 70 72 6f 63 20 6e 65 | 77 4d 6f 64 65 56 61 72 |.proc ne|wModeVar|
|00000fb0| 20 7b 6d 6f 64 65 20 76 | 61 72 20 76 61 6c 20 69 | {mode v|ar val i|
|00000fc0| 73 46 6c 61 67 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |sFlag} {|..global|
|00000fd0| 20 24 7b 6d 6f 64 65 7d | 6d 6f 64 65 56 61 72 73 | ${mode}|modeVars|
|00000fe0| 20 6d 6f 64 65 56 61 72 | 73 20 61 6c 6c 46 6c 61 | modeVar|s allFla|
|00000ff0| 67 73 20 24 76 61 72 0d | 09 0d 09 69 66 20 7b 21 |gs $var.|...if {!|
|00001000| 5b 69 6e 66 6f 20 65 78 | 69 73 74 73 20 6d 6f 64 |[info ex|ists mod|
|00001010| 65 56 61 72 73 5d 20 7c | 7c 20 5b 6c 73 65 61 72 |eVars] ||| [lsear|
|00001020| 63 68 20 24 6d 6f 64 65 | 56 61 72 73 20 24 76 61 |ch $mode|Vars $va|
|00001030| 72 5d 20 3c 20 30 7d 20 | 7b 0d 09 09 6c 61 70 70 |r] < 0} |{...lapp|
|00001040| 65 6e 64 20 6d 6f 64 65 | 56 61 72 73 20 24 76 61 |end mode|Vars $va|
|00001050| 72 0d 09 7d 0d 09 69 66 | 20 7b 21 5b 69 6e 66 6f |r..}..if| {![info|
|00001060| 20 65 78 69 73 74 73 20 | 24 7b 6d 6f 64 65 7d 6d | exists |${mode}m|
|00001070| 6f 64 65 56 61 72 73 28 | 24 76 61 72 29 5d 7d 20 |odeVars(|$var)]} |
|00001080| 7b 0d 09 09 73 65 74 20 | 24 7b 6d 6f 64 65 7d 6d |{...set |${mode}m|
|00001090| 6f 64 65 56 61 72 73 28 | 24 76 61 72 29 20 24 76 |odeVars(|$var) $v|
|000010a0| 61 6c 0d 09 09 73 65 74 | 20 24 76 61 72 20 24 76 |al...set| $var $v|
|000010b0| 61 6c 0d 09 7d 0d 09 69 | 66 20 7b 24 69 73 46 6c |al..}..i|f {$isFl|
|000010c0| 61 67 20 26 26 20 28 21 | 5b 69 6e 66 6f 20 65 78 |ag && (!|[info ex|
|000010d0| 69 73 74 73 20 61 6c 6c | 46 6c 61 67 73 5d 20 7c |ists all|Flags] ||
|000010e0| 7c 20 28 5b 6c 73 65 61 | 72 63 68 20 24 61 6c 6c || ([lsea|rch $all|
|000010f0| 46 6c 61 67 73 20 24 76 | 61 72 5d 20 3c 20 30 29 |Flags $v|ar] < 0)|
|00001100| 29 7d 20 7b 0d 09 09 6c | 61 70 70 65 6e 64 20 61 |)} {...l|append a|
|00001110| 6c 6c 46 6c 61 67 73 20 | 24 76 61 72 0d 09 7d 0d |llFlags |$var..}.|
|00001120| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|00001130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001170| 3d 3d 3d 3d 0d 6c 61 70 | 70 65 6e 64 20 6d 6f 64 |====.lap|pend mod|
|00001180| 65 73 20 43 0d 73 65 74 | 20 64 75 6d 6d 79 50 72 |es C.set| dummyPr|
|00001190| 6f 63 28 43 29 09 09 09 | 09 64 75 6d 6d 79 43 0d |oc(C)...|.dummyC.|
|000011a0| 73 65 74 20 6d 6f 64 65 | 4d 65 6e 75 73 28 43 29 |set mode|Menus(C)|
|000011b0| 20 09 09 09 09 7b 20 74 | 68 69 6e 6b 4d 65 6e 75 | ....{ t|hinkMenu|
|000011c0| 20 63 77 61 72 72 69 65 | 72 4d 65 6e 75 20 74 68 | cwarrie|rMenu th|
|000011d0| 69 6e 6b 52 65 66 4d 65 | 6e 75 20 7d 0d 6c 61 70 |inkRefMe|nu }.lap|
|000011e0| 70 65 6e 64 20 6d 6f 64 | 65 53 75 66 66 69 78 65 |pend mod|eSuffixe|
|000011f0| 73 09 20 09 09 7b 2a 2e | 68 7d 20 7b 20 73 65 74 |s. ..{*.|h} { set|
|00001200| 20 77 69 6e 4d 6f 64 65 | 20 43 20 7d 0d 6c 61 70 | winMode| C }.lap|
|00001210| 70 65 6e 64 20 6d 6f 64 | 65 53 75 66 66 69 78 65 |pend mod|eSuffixe|
|00001220| 73 09 09 09 7b 2a 2e 63 | 7d 20 7b 20 73 65 74 20 |s...{*.c|} { set |
|00001230| 77 69 6e 4d 6f 64 65 20 | 43 20 7d 0d 6c 61 70 70 |winMode |C }.lapp|
|00001240| 65 6e 64 20 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |end mode|Suffixes|
|00001250| 09 09 09 7b 2a 2e 72 7d | 20 7b 20 73 65 74 20 77 |...{*.r}| { set w|
|00001260| 69 6e 4d 6f 64 65 20 43 | 20 7d 0d 6e 65 77 4d 6f |inMode C| }.newMo|
|00001270| 64 65 56 61 72 20 43 20 | 65 6c 65 63 52 42 72 61 |deVar C |elecRBra|
|00001280| 63 65 20 7b 31 7d 20 31 | 0d 6e 65 77 4d 6f 64 65 |ce {1} 1|.newMode|
|00001290| 56 61 72 20 43 20 6c 65 | 66 74 46 69 6c 6c 43 6f |Var C le|ftFillCo|
|000012a0| 6c 75 6d 6e 20 7b 33 7d | 20 30 0d 6e 65 77 4d 6f |lumn {3}| 0.newMo|
|000012b0| 64 65 56 61 72 20 43 20 | 70 72 65 66 69 78 53 74 |deVar C |prefixSt|
|000012c0| 72 69 6e 67 20 7b 2f 2f | 7d 20 30 20 0d 6e 65 77 |ring {//|} 0 .new|
|000012d0| 4d 6f 64 65 56 61 72 20 | 43 20 65 6c 65 63 74 72 |ModeVar |C electr|
|000012e0| 69 63 53 65 6d 69 20 7b | 31 7d 20 31 0d 6e 65 77 |icSemi {|1} 1.new|
|000012f0| 4d 6f 64 65 56 61 72 20 | 43 20 77 6f 72 64 42 72 |ModeVar |C wordBr|
|00001300| 65 61 6b 20 7b 5b 61 2d | 7a 41 2d 5a 30 2d 39 5f |eak {[a-|zA-Z0-9_|
|00001310| 5d 2b 7d 20 30 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |]+} 0.ne|wModeVar|
|00001320| 20 43 20 65 6c 65 63 4c | 42 72 61 63 65 20 7b 31 | C elecL|Brace {1|
|00001330| 7d 20 31 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 43 |} 1.newM|odeVar C|
|00001340| 20 77 6f 72 64 57 72 61 | 70 20 7b 30 7d 20 31 0d | wordWra|p {0} 1.|
|00001350| 6e 65 77 4d 6f 64 65 56 | 61 72 20 43 20 66 75 6e |newModeV|ar C fun|
|00001360| 63 45 78 70 72 20 7b 5e | 5b 5e 20 5c 74 5c 28 23 |cExpr {^|[^ \t\(#|
|00001370| 5c 72 2f 40 5d 2e 2a 5c | 28 2e 2a 5c 29 24 7d 20 |\r/@].*\|(.*\)$} |
|00001380| 30 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 43 20 77 |0.newMod|eVar C w|
|00001390| 6f 72 64 42 72 65 61 6b | 50 72 65 66 61 63 65 20 |ordBreak|Preface |
|000013a0| 7b 5b 5e 61 2d 7a 41 2d | 5a 30 2d 39 5f 5d 7d 20 |{[^a-zA-|Z0-9_]} |
|000013b0| 30 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 43 20 6f |0.newMod|eVar C o|
|000013c0| 70 74 69 6f 6e 49 73 4d | 65 74 61 20 7b 31 7d 20 |ptionIsM|eta {1} |
|000013d0| 31 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 43 20 65 |1.newMod|eVar C e|
|000013e0| 6c 65 63 74 72 69 63 54 | 61 62 20 7b 30 7d 20 31 |lectricT|ab {0} 1|
|000013f0| 0d 0d 73 65 74 20 63 43 | 6f 6d 6d 65 6e 74 52 65 |..set cC|ommentRe|
|00001400| 67 65 78 70 09 7b 2f 5c | 2a 28 28 5b 5e 2a 5d 2f |gexp.{/\|*(([^*]/|
|00001410| 29 7c 5b 5e 2a 5d 7c 5c | 72 29 2a 5c 2a 2f 7d 0d |)|[^*]|\|r)*\*/}.|
|00001420| 73 65 74 20 63 50 72 65 | 52 65 67 65 78 70 09 09 |set cPre|Regexp..|
|00001430| 7b 5e 5c 23 5b 5c 74 20 | 5d 2a 5b 61 2d 7a 5d 2a |{^\#[\t |]*[a-z]*|
|00001440| 7d 0d 73 65 74 20 63 4b | 65 79 57 6f 72 64 73 09 |}.set cK|eyWords.|
|00001450| 09 7b 0d 09 76 6f 69 64 | 20 72 65 67 69 73 74 65 |.{..void| registe|
|00001460| 72 20 73 68 6f 72 74 20 | 65 6e 75 6d 20 65 78 74 |r short |enum ext|
|00001470| 65 72 6e 20 69 6e 74 20 | 66 6f 72 20 69 66 20 77 |ern int |for if w|
|00001480| 68 69 6c 65 20 73 74 72 | 75 63 74 20 73 74 61 74 |hile str|uct stat|
|00001490| 69 63 20 6c 6f 6e 67 20 | 0d 09 73 77 69 74 63 68 |ic long |..switch|
|000014a0| 20 63 61 73 65 20 63 68 | 61 72 20 75 6e 73 69 67 | case ch|ar unsig|
|000014b0| 6e 65 64 20 64 6f 75 62 | 6c 65 20 66 6c 6f 61 74 |ned doub|le float|
|000014c0| 20 72 65 74 75 72 6e 20 | 65 6c 73 65 20 64 65 66 | return |else def|
|000014d0| 61 75 6c 74 20 67 6f 74 | 6f 0d 7d 0d 72 65 67 4d |ault got|o.}.regM|
|000014e0| 6f 64 65 4b 65 79 77 6f | 72 64 73 20 2d 65 20 7b |odeKeywo|rds -e {|
|000014f0| 2f 2f 7d 20 2d 62 20 7b | 2f 2a 7d 20 7b 2a 2f 7d |//} -b {|/*} {*/}|
|00001500| 20 2d 63 20 72 65 64 20 | 2d 6b 20 62 6c 75 65 20 | -c red |-k blue |
|00001510| 43 20 24 63 4b 65 79 57 | 6f 72 64 73 0d 0d 23 3d |C $cKeyW|ords..#=|
|00001520| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001530| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001540| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001550| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001560| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00001570| 6c 61 70 70 65 6e 64 20 | 6d 6f 64 65 73 20 43 2b |lappend |modes C+|
|00001580| 2b 0d 73 65 74 20 64 75 | 6d 6d 79 50 72 6f 63 28 |+.set du|mmyProc(|
|00001590| 43 2b 2b 29 09 09 09 09 | 64 75 6d 6d 79 43 2b 2b |C++)....|dummyC++|
|000015a0| 0d 73 65 74 20 6d 6f 64 | 65 4d 65 6e 75 73 28 43 |.set mod|eMenus(C|
|000015b0| 2b 2b 29 20 09 09 09 09 | 7b 20 74 68 69 6e 6b 4d |++) ....|{ thinkM|
|000015c0| 65 6e 75 20 63 77 61 72 | 72 69 65 72 4d 65 6e 75 |enu cwar|rierMenu|
|000015d0| 20 74 68 69 6e 6b 52 65 | 66 4d 65 6e 75 20 7d 0d | thinkRe|fMenu }.|
|000015e0| 6c 61 70 70 65 6e 64 20 | 6d 6f 64 65 53 75 66 66 |lappend |modeSuff|
|000015f0| 69 78 65 73 09 09 20 09 | 7b 2a 2e 68 7d 20 7b 20 |ixes.. .|{*.h} { |
|00001600| 73 65 74 20 77 69 6e 4d | 6f 64 65 20 43 2b 2b 20 |set winM|ode C++ |
|00001610| 7d 0d 6c 61 70 70 65 6e | 64 20 6d 6f 64 65 53 75 |}.lappen|d modeSu|
|00001620| 66 66 69 78 65 73 09 09 | 09 7b 2a 2e 63 63 7d 20 |ffixes..|.{*.cc} |
|00001630| 7b 20 73 65 74 20 77 69 | 6e 4d 6f 64 65 20 43 2b |{ set wi|nMode C+|
|00001640| 2b 20 7d 0d 6c 61 70 70 | 65 6e 64 20 6d 6f 64 65 |+ }.lapp|end mode|
|00001650| 53 75 66 66 69 78 65 73 | 09 09 09 7b 2a 2e 63 70 |Suffixes|...{*.cp|
|00001660| 7d 20 7b 20 73 65 74 20 | 77 69 6e 4d 6f 64 65 20 |} { set |winMode |
|00001670| 43 2b 2b 20 7d 0d 6c 61 | 70 70 65 6e 64 20 6d 6f |C++ }.la|ppend mo|
|00001680| 64 65 53 75 66 66 69 78 | 65 73 09 09 09 7b 2a 2e |deSuffix|es...{*.|
|00001690| 63 70 70 7d 20 7b 20 73 | 65 74 20 77 69 6e 4d 6f |cpp} { s|et winMo|
|000016a0| 64 65 20 43 2b 2b 20 7d | 0d 6c 61 70 70 65 6e 64 |de C++ }|.lappend|
|000016b0| 20 6d 6f 64 65 53 75 66 | 66 69 78 65 73 09 09 09 | modeSuf|fixes...|
|000016c0| 7b 2a 2e 43 50 50 7d 20 | 7b 20 73 65 74 20 77 69 |{*.CPP} |{ set wi|
|000016d0| 6e 4d 6f 64 65 20 43 2b | 2b 20 7d 0d 6c 61 70 70 |nMode C+|+ }.lapp|
|000016e0| 65 6e 64 20 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |end mode|Suffixes|
|000016f0| 09 09 09 7b 2a 2e 43 7d | 20 7b 20 73 65 74 20 77 |...{*.C}| { set w|
|00001700| 69 6e 4d 6f 64 65 20 43 | 2b 2b 20 7d 0d 6e 65 77 |inMode C|++ }.new|
|00001710| 4d 6f 64 65 56 61 72 20 | 43 2b 2b 20 65 6c 65 63 |ModeVar |C++ elec|
|00001720| 52 42 72 61 63 65 20 7b | 31 7d 20 31 0d 6e 65 77 |RBrace {|1} 1.new|
|00001730| 4d 6f 64 65 56 61 72 20 | 43 2b 2b 20 6c 65 66 74 |ModeVar |C++ left|
|00001740| 46 69 6c 6c 43 6f 6c 75 | 6d 6e 20 7b 33 7d 20 30 |FillColu|mn {3} 0|
|00001750| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 2b 2b 20 |.newMode|Var C++ |
|00001760| 70 72 65 66 69 78 53 74 | 72 69 6e 67 20 7b 2f 2f |prefixSt|ring {//|
|00001770| 7d 20 30 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 43 |} 0.newM|odeVar C|
|00001780| 2b 2b 20 65 6c 65 63 74 | 72 69 63 53 65 6d 69 20 |++ elect|ricSemi |
|00001790| 7b 31 7d 20 31 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |{1} 1.ne|wModeVar|
|000017a0| 20 43 2b 2b 20 77 6f 72 | 64 42 72 65 61 6b 20 7b | C++ wor|dBreak {|
|000017b0| 5b 61 2d 7a 41 2d 5a 30 | 2d 39 5f 5d 2b 7d 20 30 |[a-zA-Z0|-9_]+} 0|
|000017c0| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 2b 2b 20 |.newMode|Var C++ |
|000017d0| 65 6c 65 63 4c 42 72 61 | 63 65 20 7b 31 7d 20 31 |elecLBra|ce {1} 1|
|000017e0| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 2b 2b 20 |.newMode|Var C++ |
|000017f0| 77 6f 72 64 57 72 61 70 | 20 7b 30 7d 20 31 0d 6e |wordWrap| {0} 1.n|
|00001800| 65 77 4d 6f 64 65 56 61 | 72 20 43 2b 2b 20 66 75 |ewModeVa|r C++ fu|
|00001810| 6e 63 45 78 70 72 20 7b | 5e 5b 5e 20 5c 74 5c 28 |ncExpr {|^[^ \t\(|
|00001820| 23 5c 72 2f 40 5d 2e 2a | 5c 28 2e 2a 5c 29 24 7d |#\r/@].*|\(.*\)$}|
|00001830| 20 30 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 43 2b | 0.newMo|deVar C+|
|00001840| 2b 20 77 6f 72 64 42 72 | 65 61 6b 50 72 65 66 61 |+ wordBr|eakPrefa|
|00001850| 63 65 20 7b 5b 5e 61 2d | 7a 41 2d 5a 30 2d 39 5f |ce {[^a-|zA-Z0-9_|
|00001860| 5d 7d 20 30 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |]} 0.new|ModeVar |
|00001870| 43 2b 2b 20 6f 70 74 69 | 6f 6e 49 73 4d 65 74 61 |C++ opti|onIsMeta|
|00001880| 20 7b 31 7d 20 31 0d 6e | 65 77 4d 6f 64 65 56 61 | {1} 1.n|ewModeVa|
|00001890| 72 20 43 2b 2b 20 65 6c | 65 63 74 72 69 63 54 61 |r C++ el|ectricTa|
|000018a0| 62 20 7b 31 7d 20 31 0d | 0d 72 65 67 4d 6f 64 65 |b {1} 1.|.regMode|
|000018b0| 4b 65 79 77 6f 72 64 73 | 20 2d 65 20 7b 2f 2f 7d |Keywords| -e {//}|
|000018c0| 20 2d 62 20 7b 2f 2a 7d | 20 7b 2a 2f 7d 20 2d 63 | -b {/*}| {*/} -c|
|000018d0| 20 72 65 64 20 2d 6b 20 | 62 6c 75 65 20 7b 43 2b | red -k |blue {C+|
|000018e0| 2b 7d 20 5b 63 6f 6e 63 | 61 74 20 7b 0d 09 6e 65 |+} [conc|at {..ne|
|000018f0| 77 20 64 65 6c 65 74 65 | 20 63 6c 61 73 73 20 66 |w delete| class f|
|00001900| 72 69 65 6e 64 20 70 72 | 6f 74 65 63 74 65 64 20 |riend pr|otected |
|00001910| 70 72 69 76 61 74 65 20 | 70 75 62 6c 69 63 20 74 |private |public t|
|00001920| 65 6d 70 6c 61 74 65 20 | 7d 20 24 63 4b 65 79 57 |emplate |} $cKeyW|
|00001930| 6f 72 64 73 5d 0d 75 6e | 73 65 74 20 63 4b 65 79 |ords].un|set cKey|
|00001940| 57 6f 72 64 73 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |Words..#|========|
|00001950| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001960| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001990| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 6c 61 70 70 65 6e 64 |========|.lappend|
|000019a0| 20 6d 6f 64 65 73 20 43 | 73 68 0d 73 65 74 20 64 | modes C|sh.set d|
|000019b0| 75 6d 6d 79 50 72 6f 63 | 28 43 73 68 29 09 09 09 |ummyProc|(Csh)...|
|000019c0| 09 64 75 6d 6d 79 43 73 | 68 0d 73 65 74 20 6d 6f |.dummyCs|h.set mo|
|000019d0| 64 65 4d 65 6e 75 73 28 | 43 73 68 29 20 09 09 09 |deMenus(|Csh) ...|
|000019e0| 7b 20 74 63 6c 4d 65 6e | 75 20 7d 0d 6c 61 70 70 |{ tclMen|u }.lapp|
|000019f0| 65 6e 64 20 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |end mode|Suffixes|
|00001a00| 09 09 09 7b 2a 74 63 6c | 5c 20 73 68 2a 7d 20 7b |...{*tcl|\ sh*} {|
|00001a10| 73 65 74 20 77 69 6e 4d | 6f 64 65 20 43 73 68 7d |set winM|ode Csh}|
|00001a20| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 73 68 20 |.newMode|Var Csh |
|00001a30| 77 6f 72 64 42 72 65 61 | 6b 20 7b 28 5c 24 29 3f |wordBrea|k {(\$)?|
|00001a40| 5b 61 2d 7a 41 2d 5a 30 | 2d 39 5f 5d 2b 7d 20 30 |[a-zA-Z0|-9_]+} 0|
|00001a50| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 73 68 20 |.newMode|Var Csh |
|00001a60| 77 6f 72 64 57 72 61 70 | 20 7b 30 7d 20 31 0d 6e |wordWrap| {0} 1.n|
|00001a70| 65 77 4d 6f 64 65 56 61 | 72 20 43 73 68 20 77 6f |ewModeVa|r Csh wo|
|00001a80| 72 64 42 72 65 61 6b 50 | 72 65 66 61 63 65 20 7b |rdBreakP|reface {|
|00001a90| 5b 5e 61 2d 7a 41 2d 5a | 30 2d 39 5f 5c 24 5d 7d |[^a-zA-Z|0-9_\$]}|
|00001aa0| 20 30 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 43 73 | 0.newMo|deVar Cs|
|00001ab0| 68 20 6f 70 74 69 6f 6e | 49 73 4d 65 74 61 20 7b |h option|IsMeta {|
|00001ac0| 31 7d 20 31 0d 72 65 67 | 4d 6f 64 65 4b 65 79 77 |1} 1.reg|ModeKeyw|
|00001ad0| 6f 72 64 73 20 2d 6d 20 | 7b c7 7d 20 43 73 68 20 |ords -m |{.} Csh |
|00001ae0| 7b 7d 0d 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |{}..#===|========|
|00001af0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b30| 3d 3d 3d 3d 3d 0d 6c 61 | 70 70 65 6e 64 20 6d 6f |=====.la|ppend mo|
|00001b40| 64 65 73 20 54 65 78 74 | 0d 73 65 74 20 6d 6f 64 |des Text|.set mod|
|00001b50| 65 4d 65 6e 75 73 28 54 | 65 78 74 29 09 09 09 09 |eMenus(T|ext)....|
|00001b60| 7b 20 7d 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 54 |{ }.newM|odeVar T|
|00001b70| 65 78 74 20 6c 65 66 74 | 46 69 6c 6c 43 6f 6c 75 |ext left|FillColu|
|00001b80| 6d 6e 20 7b 30 7d 20 30 | 0d 6e 65 77 4d 6f 64 65 |mn {0} 0|.newMode|
|00001b90| 56 61 72 20 54 65 78 74 | 20 73 75 66 66 69 78 53 |Var Text| suffixS|
|00001ba0| 74 72 69 6e 67 20 7b 20 | 3c 2d 2d 7d 20 30 0d 6e |tring { |<--} 0.n|
|00001bb0| 65 77 4d 6f 64 65 56 61 | 72 20 54 65 78 74 20 70 |ewModeVa|r Text p|
|00001bc0| 72 65 66 69 78 53 74 72 | 69 6e 67 20 7b 3e 20 7d |refixStr|ing {> }|
|00001bd0| 20 30 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 54 65 | 0.newMo|deVar Te|
|00001be0| 78 74 20 66 69 6c 6c 43 | 6f 6c 75 6d 6e 20 7b 37 |xt fillC|olumn {7|
|00001bf0| 35 7d 20 30 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |5} 0.new|ModeVar |
|00001c00| 54 65 78 74 20 77 6f 72 | 64 57 72 61 70 20 7b 31 |Text wor|dWrap {1|
|00001c10| 7d 20 31 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 54 |} 1.newM|odeVar T|
|00001c20| 65 78 74 20 6f 70 74 69 | 6f 6e 49 73 4d 65 74 61 |ext opti|onIsMeta|
|00001c30| 20 7b 31 7d 20 31 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d | {1} 1..|#=======|
|00001c40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 23 20 55 70 64 61 |========|=.# Upda|
|00001c90| 74 65 64 20 46 6f 72 74 | 72 61 6e 20 6d 6f 64 65 |ted Fort|ran mode|
|00001ca0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 3a 0d 23 0d 23 | definit|ion:.#.#|
|00001cb0| 20 43 68 61 6e 67 65 73 | 20 61 72 65 3a 09 2a 20 | Changes| are:.* |
|00001cc0| 2e 66 63 6d 20 73 75 66 | 66 69 78 20 74 72 69 67 |.fcm suf|fix trig|
|00001cd0| 67 65 72 73 20 46 6f 72 | 74 20 6d 6f 64 65 20 28 |gers For|t mode (|
|00001ce0| 43 4d 2d 35 20 66 6f 72 | 74 72 61 6e 29 0d 23 20 |CM-5 for|tran).# |
|00001cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 09 2a 20 2e | | .* .|
|00001d00| 66 6f 72 20 73 75 66 66 | 69 78 20 74 72 69 67 67 |for suff|ix trigg|
|00001d10| 65 72 73 20 46 6f 72 74 | 20 6d 6f 64 65 20 28 6f |ers Fort| mode (o|
|00001d20| 6c 64 20 63 6f 6d 70 69 | 6c 65 72 73 29 0d 23 20 |ld compi|lers).# |
|00001d30| 20 20 20 20 20 20 20 20 | 20 20 20 09 2a 20 22 65 | | .* "e|
|00001d40| 6e 74 72 79 22 20 6e 61 | 6d 65 73 20 61 72 65 20 |ntry" na|mes are |
|00001d50| 69 6e 63 6c 75 64 65 64 | 20 69 6e 20 73 75 62 72 |included| in subr|
|00001d60| 6f 75 74 69 6e 65 20 6c | 69 73 74 73 0d 23 20 20 |outine l|ists.# |
|00001d70| 20 20 20 20 20 20 20 20 | 20 20 09 2a 20 70 72 65 | | .* pre|
|00001d80| 66 69 78 20 73 74 69 6e | 67 20 69 73 20 73 65 74 |fix stin|g is set|
|00001d90| 20 63 6f 72 72 65 63 74 | 6c 79 20 28 69 6e 69 74 | correct|ly (init|
|00001da0| 69 61 6c 20 27 63 27 29 | 0d 23 20 20 20 20 20 20 |ial 'c')|.# |
|00001db0| 20 20 20 20 20 20 09 2a | 20 46 6f 72 74 4d 61 72 | .*| FortMar|
|00001dc0| 6b 46 69 6c 65 20 72 6f | 75 74 69 6e 65 20 70 72 |kFile ro|utine pr|
|00001dd0| 6f 76 69 64 65 64 20 28 | 66 75 6e 63 45 78 70 72 |ovided (|funcExpr|
|00001de0| 20 64 6f 65 73 6e 27 74 | 20 77 6f 72 6b 20 61 6e | doesn't| work an|
|00001df0| 79 6d 6f 72 65 3f 29 0d | 23 0d 23 20 57 54 50 20 |ymore?).|#.# WTP |
|00001e00| 38 2f 35 2f 39 34 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |8/5/94.#|========|
|00001e10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e50| 3d 3d 3d 3d 3d 0d 6c 61 | 70 70 65 6e 64 20 6d 6f |=====.la|ppend mo|
|00001e60| 64 65 73 20 46 6f 72 74 | 0d 73 65 74 20 6d 6f 64 |des Fort|.set mod|
|00001e70| 65 4d 65 6e 75 73 28 46 | 6f 72 74 29 20 09 09 09 |eMenus(F|ort) ...|
|00001e80| 7b 20 7d 0d 6c 61 70 70 | 65 6e 64 20 6d 6f 64 65 |{ }.lapp|end mode|
|00001e90| 53 75 66 66 69 78 65 73 | 09 09 09 7b 2a 2e 66 7d |Suffixes|...{*.f}|
|00001ea0| 20 7b 20 73 65 74 20 77 | 69 6e 4d 6f 64 65 20 46 | { set w|inMode F|
|00001eb0| 6f 72 74 20 7d 0d 6c 61 | 70 70 65 6e 64 20 6d 6f |ort }.la|ppend mo|
|00001ec0| 64 65 53 75 66 66 69 78 | 65 73 09 09 09 7b 2a 2e |deSuffix|es...{*.|
|00001ed0| 66 63 6d 7d 20 7b 20 73 | 65 74 20 77 69 6e 4d 6f |fcm} { s|et winMo|
|00001ee0| 64 65 20 46 6f 72 74 20 | 7d 0d 6c 61 70 70 65 6e |de Fort |}.lappen|
|00001ef0| 64 20 6d 6f 64 65 53 75 | 66 66 69 78 65 73 09 09 |d modeSu|ffixes..|
|00001f00| 09 7b 2a 2e 66 6f 72 7d | 20 7b 20 73 65 74 20 77 |.{*.for}| { set w|
|00001f10| 69 6e 4d 6f 64 65 20 46 | 6f 72 74 20 7d 0d 6c 61 |inMode F|ort }.la|
|00001f20| 70 70 65 6e 64 20 6d 6f | 64 65 53 75 66 66 69 78 |ppend mo|deSuffix|
|00001f30| 65 73 09 09 09 7b 2a 2e | 46 4f 52 7d 20 7b 20 73 |es...{*.|FOR} { s|
|00001f40| 65 74 20 77 69 6e 4d 6f | 64 65 20 46 6f 72 74 20 |et winMo|de Fort |
|00001f50| 7d 0d 73 65 74 20 46 6f | 72 74 6d 6f 64 65 56 61 |}.set Fo|rtmodeVa|
|00001f60| 72 73 28 77 6f 72 64 57 | 72 61 70 29 09 09 7b 30 |rs(wordW|rap)..{0|
|00001f70| 7d 0d 73 65 74 20 46 6f | 72 74 6d 6f 64 65 56 61 |}.set Fo|rtmodeVa|
|00001f80| 72 73 28 70 72 65 66 69 | 78 53 74 72 69 6e 67 29 |rs(prefi|xString)|
|00001f90| 09 7b 63 7d 0d 73 65 74 | 20 46 6f 72 74 6d 6f 64 |.{c}.set| Fortmod|
|00001fa0| 65 56 61 72 73 28 73 6f | 72 74 65 64 49 73 44 65 |eVars(so|rtedIsDe|
|00001fb0| 66 61 75 6c 74 29 09 09 | 7b 30 7d 0d 73 65 74 20 |fault)..|{0}.set |
|00001fc0| 46 6f 72 74 6d 6f 64 65 | 56 61 72 73 28 66 75 6e |Fortmode|Vars(fun|
|00001fd0| 63 45 78 70 72 29 09 7b | 5e 5b 20 5c 74 5d 2a 28 |cExpr).{|^[ \t]*(|
|00001fe0| 73 75 62 72 6f 75 74 69 | 6e 65 7c 2e 2a 66 75 6e |subrouti|ne|.*fun|
|00001ff0| 63 74 69 6f 6e 7c 65 6e | 74 72 79 7c 53 55 42 52 |ction|en|try|SUBR|
|00002000| 4f 55 54 49 4e 45 7c 2e | 2a 46 55 4e 43 54 49 4f |OUTINE|.|*FUNCTIO|
|00002010| 4e 7c 45 4e 54 52 59 29 | 2e 2a 5c 28 2e 2a 24 7d |N|ENTRY)|.*\(.*$}|
|00002020| 0d 73 65 74 20 46 6f 72 | 74 6d 6f 64 65 56 61 72 |.set For|tmodeVar|
|00002030| 73 28 6f 70 74 69 6f 6e | 49 73 4d 65 74 61 29 09 |s(option|IsMeta).|
|00002040| 7b 31 7d 0d 0d 73 65 74 | 20 46 6f 72 74 4b 65 79 |{1}..set| FortKey|
|00002050| 77 6f 72 64 73 20 7b 20 | 0d 09 62 61 63 6b 73 70 |words { |..backsp|
|00002060| 61 63 65 20 62 6c 6f 63 | 6b 20 63 61 6c 6c 20 63 |ace bloc|k call c|
|00002070| 68 61 72 61 63 74 65 72 | 20 63 6c 6f 73 65 20 63 |haracter| close c|
|00002080| 6f 6d 6d 6f 6e 20 63 6f | 6d 70 6c 65 78 20 0d 09 |ommon co|mplex ..|
|00002090| 63 6f 6e 74 69 6e 75 65 | 20 64 61 74 61 20 64 69 |continue| data di|
|000020a0| 6d 65 6e 73 69 6f 6e 20 | 64 6f 20 64 6f 75 62 6c |mension |do doubl|
|000020b0| 65 20 65 6c 73 65 20 65 | 6c 73 65 69 66 20 65 6e |e else e|lseif en|
|000020c0| 64 20 65 6e 64 64 6f 20 | 65 6e 64 66 69 6c 65 20 |d enddo |endfile |
|000020d0| 65 6e 64 69 66 20 65 6e | 74 72 79 20 0d 09 65 71 |endif en|try ..eq|
|000020e0| 75 69 76 61 6c 65 6e 63 | 65 20 65 78 74 65 72 6e |uivalenc|e extern|
|000020f0| 61 6c 20 66 6f 72 6d 61 | 74 20 66 75 6e 63 74 69 |al forma|t functi|
|00002100| 6f 6e 20 67 6f 74 6f 20 | 69 66 20 69 6d 70 6c 69 |on goto |if impli|
|00002110| 63 69 74 20 69 6e 71 75 | 69 72 65 20 69 6e 74 65 |cit inqu|ire inte|
|00002120| 67 65 72 20 0d 09 69 6e | 74 72 69 6e 73 69 63 20 |ger ..in|trinsic |
|00002130| 6c 6f 67 69 63 61 6c 20 | 6f 70 65 6e 20 70 61 72 |logical |open par|
|00002140| 61 6d 65 74 65 72 20 70 | 72 65 63 69 73 69 6f 6e |ameter p|recision|
|00002150| 20 70 72 69 6e 74 20 70 | 72 6f 67 72 61 6d 20 72 | print p|rogram r|
|00002160| 65 61 64 20 72 65 74 75 | 72 6e 20 73 61 76 65 20 |ead retu|rn save |
|00002170| 0d 09 73 74 6f 70 20 72 | 65 61 6c 20 72 65 77 69 |..stop r|eal rewi|
|00002180| 6e 64 20 73 75 62 72 6f | 75 74 69 6e 65 20 74 68 |nd subro|utine th|
|00002190| 65 6e 20 77 72 69 74 65 | 0d 7d 0d 0d 72 65 67 4d |en write|.}..regM|
|000021a0| 6f 64 65 4b 65 79 77 6f | 72 64 73 20 2d 63 20 72 |odeKeywo|rds -c r|
|000021b0| 65 64 20 2d 6b 20 62 6c | 75 65 20 46 6f 72 74 20 |ed -k bl|ue Fort |
|000021c0| 24 46 6f 72 74 4b 65 79 | 77 6f 72 64 73 0d 75 6e |$FortKey|words.un|
|000021d0| 73 65 74 20 46 6f 72 74 | 4b 65 79 77 6f 72 64 73 |set Fort|Keywords|
|000021e0| 0d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|000021f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002230| 0d 0d 70 72 6f 63 20 46 | 6f 72 74 4d 61 72 6b 46 |..proc F|ortMarkF|
|00002240| 69 6c 65 20 7b 7d 20 7b | 0d 20 20 20 20 73 65 74 |ile {} {|. set|
|00002250| 20 70 61 74 31 20 7b 5e | 5b 5e 63 43 5d 5b 20 5c | pat1 {^|[^cC][ \|
|00002260| 74 41 2d 5a 61 2d 7a 2a | 30 2d 39 5d 2b 28 73 75 |tA-Za-z*|0-9]+(su|
|00002270| 62 72 6f 75 74 69 6e 65 | 7c 66 75 6e 63 74 69 6f |broutine||functio|
|00002280| 6e 7c 65 6e 74 72 79 29 | 5b 20 5c 74 5d 2a 28 5b |n|entry)|[ \t]*([|
|00002290| 41 2d 5a 61 2d 7a 30 2d | 39 5f 5d 2b 29 7d 0d 20 |A-Za-z0-|9_]+)}. |
|000022a0| 20 20 20 73 65 74 20 65 | 6e 64 20 5b 6d 61 78 50 | set e|nd [maxP|
|000022b0| 6f 73 5d 0d 20 20 20 20 | 73 65 74 20 70 6f 73 20 |os]. |set pos |
|000022c0| 30 0d 20 20 20 20 73 65 | 74 20 6c 20 7b 7d 0d 20 |0. se|t l {}. |
|000022d0| 20 20 20 77 68 69 6c 65 | 20 7b 21 5b 63 61 74 63 | while| {![catc|
|000022e0| 68 20 7b 73 65 61 72 63 | 68 20 2d 66 20 31 20 2d |h {searc|h -f 1 -|
|000022f0| 72 20 31 20 2d 6d 20 30 | 20 2d 69 20 31 20 24 70 |r 1 -m 0| -i 1 $p|
|00002300| 61 74 31 20 24 70 6f 73 | 7d 20 6d 74 63 68 5d 7d |at1 $pos|} mtch]}|
|00002310| 20 7b 0d 20 20 20 20 20 | 20 20 20 72 65 67 65 78 | {. | regex|
|00002320| 70 20 2d 6e 6f 63 61 73 | 65 20 24 70 61 74 31 20 |p -nocas|e $pat1 |
|00002330| 5b 65 76 61 6c 20 67 65 | 74 54 65 78 74 20 24 6d |[eval ge|tText $m|
|00002340| 74 63 68 5d 20 61 6c 6c | 6f 66 69 74 20 73 75 62 |tch] all|ofit sub|
|00002350| 74 79 70 20 6e 61 6d 65 | 0d 20 20 20 20 20 20 20 |typ name|. |
|00002360| 20 73 65 74 20 73 74 61 | 72 74 20 5b 6c 69 6e 64 | set sta|rt [lind|
|00002370| 65 78 20 24 6d 74 63 68 | 20 30 5d 0d 20 20 20 20 |ex $mtch| 0]. |
|00002380| 20 20 20 20 73 65 74 20 | 65 6e 64 20 5b 6e 65 78 | set |end [nex|
|00002390| 74 4c 69 6e 65 53 74 61 | 72 74 20 24 73 74 61 72 |tLineSta|rt $star|
|000023a0| 74 5d 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 70 |t]. | set p|
|000023b0| 6f 73 20 24 65 6e 64 0d | 20 20 20 20 20 20 20 20 |os $end.| |
|000023c0| 73 65 74 20 69 6e 64 73 | 28 24 6e 61 6d 65 29 20 |set inds|($name) |
|000023d0| 5b 6c 69 6e 65 53 74 61 | 72 74 20 24 73 74 61 72 |[lineSta|rt $star|
|000023e0| 74 5d 0d 20 20 20 20 7d | 0d 0d 20 20 20 20 69 66 |t]. }|.. if|
|000023f0| 20 7b 5b 69 6e 66 6f 20 | 65 78 69 73 74 73 20 69 | {[info |exists i|
|00002400| 6e 64 73 5d 7d 20 7b 0d | 20 20 20 20 20 20 20 20 |nds]} {.| |
|00002410| 66 6f 72 65 61 63 68 20 | 66 20 5b 6c 73 6f 72 74 |foreach |f [lsort|
|00002420| 20 5b 61 72 72 61 79 20 | 6e 61 6d 65 73 20 69 6e | [array |names in|
|00002430| 64 73 5d 5d 20 7b 0d 20 | 20 20 20 20 20 20 20 20 |ds]] {. | |
|00002440| 20 20 20 73 65 74 20 6e | 65 78 74 20 5b 6e 65 78 | set n|ext [nex|
|00002450| 74 4c 69 6e 65 53 74 61 | 72 74 20 24 69 6e 64 73 |tLineSta|rt $inds|
|00002460| 28 24 66 29 5d 0d 20 20 | 20 20 20 20 20 20 20 20 |($f)]. | |
|00002470| 20 20 73 65 74 4e 61 6d | 65 64 4d 61 72 6b 20 24 | setNam|edMark $|
|00002480| 66 20 24 69 6e 64 73 28 | 24 66 29 20 24 6e 65 78 |f $inds(|$f) $nex|
|00002490| 74 20 24 6e 65 78 74 0d | 20 20 20 20 20 20 20 20 |t $next.| |
|000024a0| 7d 0d 20 20 20 20 7d 0d | 7d 0d 0d 23 3d 3d 3d 3d |}. }.|}..#====|
|000024b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000024c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000024d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000024e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000024f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 6c 61 70 70 65 6e |========|=.lappen|
|00002500| 64 20 6d 6f 64 65 73 20 | 54 63 6c 0d 73 65 74 20 |d modes |Tcl.set |
|00002510| 64 75 6d 6d 79 50 72 6f | 63 28 54 63 6c 29 09 09 |dummyPro|c(Tcl)..|
|00002520| 09 09 64 75 6d 6d 79 54 | 63 6c 0d 73 65 74 20 6d |..dummyT|cl.set m|
|00002530| 6f 64 65 4d 65 6e 75 73 | 28 54 63 6c 29 20 09 09 |odeMenus|(Tcl) ..|
|00002540| 09 09 7b 20 74 63 6c 4d | 65 6e 75 20 7d 0d 6c 61 |..{ tclM|enu }.la|
|00002550| 70 70 65 6e 64 20 6d 6f | 64 65 53 75 66 66 69 78 |ppend mo|deSuffix|
|00002560| 65 73 09 09 09 7b 2a 2e | 74 63 6c 7d 20 7b 20 73 |es...{*.|tcl} { s|
|00002570| 65 74 20 77 69 6e 4d 6f | 64 65 20 54 63 6c 20 7d |et winMo|de Tcl }|
|00002580| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 54 63 6c 20 |.newMode|Var Tcl |
|00002590| 70 72 65 66 69 78 53 74 | 72 69 6e 67 20 7b 23 20 |prefixSt|ring {# |
|000025a0| 7d 20 30 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 54 |} 0.newM|odeVar T|
|000025b0| 63 6c 20 77 6f 72 64 57 | 72 61 70 20 7b 30 7d 20 |cl wordW|rap {0} |
|000025c0| 31 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 54 63 6c |1.newMod|eVar Tcl|
|000025d0| 20 66 75 6e 63 45 78 70 | 72 20 7b 5e 70 72 6f 63 | funcExp|r {^proc|
|000025e0| 20 2a 28 5b 2b 2d 61 2d | 7a 41 2d 5a 30 2d 39 5d | *([+-a-|zA-Z0-9]|
|000025f0| 2b 29 7d 20 30 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |+)} 0.ne|wModeVar|
|00002600| 20 54 63 6c 20 77 6f 72 | 64 42 72 65 61 6b 20 7b | Tcl wor|dBreak {|
|00002610| 28 5c 24 29 3f 5b 61 2d | 7a 41 2d 5a 30 2d 39 5f |(\$)?[a-|zA-Z0-9_|
|00002620| 5d 2b 7d 20 30 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |]+} 0.ne|wModeVar|
|00002630| 20 54 63 6c 20 77 6f 72 | 64 42 72 65 61 6b 50 72 | Tcl wor|dBreakPr|
|00002640| 65 66 61 63 65 20 7b 28 | 5b 5e 61 2d 7a 41 2d 5a |eface {(|[^a-zA-Z|
|00002650| 30 2d 39 5f 5c 24 5d 7c | 2e 5c 24 29 7d 20 30 0d |0-9_\$]||.\$)} 0.|
|00002660| 6e 65 77 4d 6f 64 65 56 | 61 72 20 54 63 6c 20 6f |newModeV|ar Tcl o|
|00002670| 70 74 69 6f 6e 49 73 4d | 65 74 61 20 7b 31 7d 20 |ptionIsM|eta {1} |
|00002680| 31 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 54 63 6c |1.newMod|eVar Tcl|
|00002690| 20 65 6c 65 63 74 72 69 | 63 54 61 62 20 7b 31 7d | electri|cTab {1}|
|000026a0| 20 31 0d 0d 73 65 74 20 | 74 63 6c 4b 65 79 77 6f | 1..set |tclKeywo|
|000026b0| 72 64 73 20 7b 0d 09 74 | 68 65 6e 20 61 70 70 65 |rds {..t|hen appe|
|000026c0| 6e 64 20 61 72 72 61 79 | 20 62 72 65 61 6b 20 63 |nd array| break c|
|000026d0| 61 73 65 20 63 61 74 63 | 68 20 63 64 20 63 6c 6f |ase catc|h cd clo|
|000026e0| 73 65 20 63 6f 6e 63 61 | 74 20 63 6f 6e 74 69 6e |se conca|t contin|
|000026f0| 75 65 20 65 6c 73 65 69 | 66 20 65 6c 73 65 20 65 |ue elsei|f else e|
|00002700| 6f 66 20 0d 09 65 72 72 | 6f 72 20 65 76 61 6c 20 |of ..err|or eval |
|00002710| 65 78 65 63 20 65 78 69 | 74 20 65 78 70 72 20 66 |exec exi|t expr f|
|00002720| 69 6c 65 20 66 6c 75 73 | 68 20 66 6f 72 65 61 63 |ile flus|h foreac|
|00002730| 68 20 66 6f 72 6d 61 74 | 20 66 6f 72 20 67 65 74 |h format| for get|
|00002740| 73 20 67 6c 6f 62 61 6c | 20 67 6c 6f 62 20 0d 09 |s global| glob ..|
|00002750| 68 69 73 74 6f 72 79 20 | 69 66 20 69 6e 63 72 20 |history |if incr |
|00002760| 69 6e 66 6f 20 6a 6f 69 | 6e 20 6c 61 70 70 65 6e |info joi|n lappen|
|00002770| 64 20 6c 69 62 72 61 72 | 79 20 6c 69 6e 64 65 78 |d librar|y lindex|
|00002780| 20 6c 69 6e 73 65 72 74 | 20 6c 69 73 74 20 6c 6c | linsert| list ll|
|00002790| 65 6e 67 74 68 20 0d 09 | 6c 72 61 6e 67 65 20 6c |ength ..|lrange l|
|000027a0| 72 65 70 6c 61 63 65 20 | 6c 73 65 61 72 63 68 20 |replace |lsearch |
|000027b0| 6c 73 6f 72 74 20 6f 70 | 65 6e 20 70 69 64 20 70 |lsort op|en pid p|
|000027c0| 72 6f 63 20 70 75 74 73 | 20 70 77 64 20 72 65 61 |roc puts| pwd rea|
|000027d0| 64 20 72 65 67 65 78 70 | 20 72 65 67 73 75 62 20 |d regexp| regsub |
|000027e0| 0d 09 72 65 6e 61 6d 65 | 20 72 65 74 75 72 6e 20 |..rename| return |
|000027f0| 73 63 61 6e 63 6f 6e 74 | 65 78 74 20 73 63 61 6e |scancont|ext scan|
|00002800| 20 73 65 65 6b 20 73 65 | 74 20 73 6f 75 72 63 65 | seek se|t source|
|00002810| 20 73 70 6c 69 74 20 73 | 74 72 69 6e 67 20 73 77 | split s|tring sw|
|00002820| 69 74 63 68 20 74 65 6c | 6c 20 0d 09 74 69 6d 65 |itch tel|l ..time|
|00002830| 20 74 72 61 63 65 20 75 | 6e 6b 6e 6f 77 6e 20 75 | trace u|nknown u|
|00002840| 6e 73 65 74 20 75 70 6c | 65 76 65 6c 20 75 70 76 |nset upl|evel upv|
|00002850| 61 72 20 77 68 69 6c 65 | 0d 7d 0d 72 65 67 4d 6f |ar while|.}.regMo|
|00002860| 64 65 4b 65 79 77 6f 72 | 64 73 20 2d 65 20 7b 23 |deKeywor|ds -e {#|
|00002870| 7d 20 2d 63 20 72 65 64 | 20 2d 6b 20 62 6c 75 65 |} -c red| -k blue|
|00002880| 20 54 63 6c 20 24 74 63 | 6c 4b 65 79 77 6f 72 64 | Tcl $tc|lKeyword|
|00002890| 73 0d 75 6e 73 65 74 20 | 74 63 6c 4b 65 79 77 6f |s.unset |tclKeywo|
|000028a0| 72 64 73 0d 0d 23 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |rds..#==|========|
|000028b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028f0| 3d 3d 3d 3d 3d 3d 0d 6c | 61 70 70 65 6e 64 20 6d |======.l|append m|
|00002900| 6f 64 65 73 20 4d 50 57 | 0d 73 65 74 20 6d 6f 64 |odes MPW|.set mod|
|00002910| 65 4d 65 6e 75 73 28 4d | 50 57 29 20 09 09 09 09 |eMenus(M|PW) ....|
|00002920| 7b 20 7d 0d 6c 61 70 70 | 65 6e 64 20 6d 6f 64 65 |{ }.lapp|end mode|
|00002930| 53 75 66 66 69 78 65 73 | 09 09 09 7b 2a 54 6f 6f |Suffixes|...{*Too|
|00002940| 6c 73 65 72 76 65 72 5c | 20 2a 7d 20 7b 20 73 65 |lserver\| *} { se|
|00002950| 74 20 77 69 6e 4d 6f 64 | 65 20 4d 50 57 20 7d 0d |t winMod|e MPW }.|
|00002960| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00002970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029b0| 3d 3d 0d 6c 61 70 70 65 | 6e 64 20 6d 6f 64 65 73 |==.lappe|nd modes|
|000029c0| 20 42 72 77 73 0d 73 65 | 74 20 6d 6f 64 65 4d 65 | Brws.se|t modeMe|
|000029d0| 6e 75 73 28 42 72 77 73 | 29 20 09 09 09 7b 20 7d |nus(Brws|) ...{ }|
|000029e0| 0d 73 65 74 20 64 75 6d | 6d 79 50 72 6f 63 28 42 |.set dum|myProc(B|
|000029f0| 72 77 73 29 09 09 09 09 | 64 75 6d 6d 79 42 72 77 |rws)....|dummyBrw|
|00002a00| 73 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |s.#=====|========|
|00002a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a50| 3d 3d 3d 0d 6c 61 70 70 | 65 6e 64 20 6d 6f 64 65 |===.lapp|end mode|
|00002a60| 73 20 44 69 66 66 0d 73 | 65 74 20 6d 6f 64 65 4d |s Diff.s|et modeM|
|00002a70| 65 6e 75 73 28 44 69 66 | 66 29 20 09 09 09 7b 20 |enus(Dif|f) ...{ |
|00002a80| 7d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}.#=====|========|
|00002a90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002aa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ab0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ac0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ad0| 3d 3d 3d 0d 0d 70 72 6f | 63 20 62 75 69 6c 64 46 |===..pro|c buildF|
|00002ae0| 6c 61 67 73 56 61 72 73 | 20 7b 7d 20 7b 0d 09 67 |lagsVars| {} {..g|
|00002af0| 6c 6f 62 61 6c 20 61 6c | 6c 46 6c 61 67 73 20 61 |lobal al|lFlags a|
|00002b00| 6c 6c 56 61 72 73 20 6d | 6f 64 65 56 61 72 73 0d |llVars m|odeVars.|
|00002b10| 09 0d 09 73 65 74 20 66 | 73 20 7b 7d 0d 09 66 6f |...set f|s {}..fo|
|00002b20| 72 65 61 63 68 20 66 20 | 5b 6c 73 6f 72 74 20 24 |reach f |[lsort $|
|00002b30| 61 6c 6c 46 6c 61 67 73 | 5d 20 7b 0d 09 09 69 66 |allFlags|] {...if|
|00002b40| 20 7b 5b 6c 73 65 61 72 | 63 68 20 24 6d 6f 64 65 | {[lsear|ch $mode|
|00002b50| 56 61 72 73 20 24 66 5d | 20 3c 20 30 7d 20 7b 0d |Vars $f]| < 0} {.|
|00002b60| 09 09 09 6c 61 70 70 65 | 6e 64 20 66 73 20 24 66 |...lappe|nd fs $f|
|00002b70| 0d 09 09 7d 0d 09 7d 0d | 09 6d 65 6e 75 20 2d 6d |...}..}.|.menu -m|
|00002b80| 20 2d 6e 20 66 6c 61 67 | 73 20 2d 70 20 65 64 69 | -n flag|s -p edi|
|00002b90| 74 46 6c 61 67 20 24 66 | 73 0d 09 65 76 61 6c 20 |tFlag $f|s..eval |
|00002ba0| 67 6c 6f 62 61 6c 20 24 | 66 73 0d 09 66 6f 72 65 |global $|fs..fore|
|00002bb0| 61 63 68 20 66 20 24 66 | 73 20 7b 0d 09 09 6d 61 |ach f $f|s {...ma|
|00002bc0| 72 6b 4d 65 6e 75 49 74 | 65 6d 20 66 6c 61 67 73 |rkMenuIt|em flags|
|00002bd0| 20 24 66 20 5b 73 65 74 | 20 24 66 5d 0d 09 7d 0d | $f [set| $f]..}.|
|00002be0| 0d 09 73 65 74 20 66 73 | 20 7b 7d 0d 09 66 6f 72 |..set fs| {}..for|
|00002bf0| 65 61 63 68 20 66 20 5b | 6c 73 6f 72 74 20 24 61 |each f [|lsort $a|
|00002c00| 6c 6c 56 61 72 73 5d 20 | 7b 0d 09 09 69 66 20 7b |llVars] |{...if {|
|00002c10| 5b 6c 73 65 61 72 63 68 | 20 24 6d 6f 64 65 56 61 |[lsearch| $modeVa|
|00002c20| 72 73 20 24 66 5d 20 3c | 20 30 7d 20 7b 0d 09 09 |rs $f] <| 0} {...|
|00002c30| 09 6c 61 70 70 65 6e 64 | 20 66 73 20 24 66 0d 09 |.lappend| fs $f..|
|00002c40| 09 7d 0d 09 7d 0d 09 6d | 65 6e 75 20 2d 6d 20 2d |.}..}..m|enu -m -|
|00002c50| 6e 20 76 61 72 73 20 2d | 70 20 65 64 69 74 56 61 |n vars -|p editVa|
|00002c60| 72 20 24 66 73 0d 7d 0d | 0d 0d 70 72 6f 63 20 73 |r $fs.}.|..proc s|
|00002c70| 61 76 65 56 61 72 56 61 | 6c 75 65 73 20 7b 7d 20 |aveVarVa|lues {} |
|00002c80| 7b 0d 09 67 6c 6f 62 61 | 6c 20 6d 6f 64 65 73 20 |{..globa|l modes |
|00002c90| 48 4f 4d 45 0d 09 69 66 | 20 7b 5b 61 73 6b 79 65 |HOME..if| {[askye|
|00002ca0| 73 6e 6f 20 22 53 61 76 | 65 20 76 61 72 69 61 62 |sno "Sav|e variab|
|00002cb0| 6c 65 73 20 61 6e 64 20 | 76 61 6c 75 65 73 20 74 |les and |values t|
|00002cc0| 6f 20 5c 22 24 48 4f 4d | 45 3a 61 6c 70 68 61 46 |o \"$HOM|E:alphaF|
|00002cd0| 6c 61 67 73 2e 74 63 6c | 5c 22 3f 22 5d 20 3d 3d |lags.tcl|\"?"] ==|
|00002ce0| 20 22 79 65 73 22 7d 20 | 7b 0d 09 09 73 65 74 20 | "yes"} |{...set |
|00002cf0| 6c 69 6e 65 73 20 7b 7d | 0d 09 09 66 6f 72 65 61 |lines {}|...forea|
|00002d00| 63 68 20 6d 20 24 6d 6f | 64 65 73 20 7b 0d 09 09 |ch m $mo|des {...|
|00002d10| 09 67 6c 6f 62 61 6c 20 | 24 7b 6d 7d 6d 6f 64 65 |.global |${m}mode|
|00002d20| 56 61 72 73 0d 09 09 09 | 0d 09 09 09 69 66 20 7b |Vars....|....if {|
|00002d30| 5b 69 6e 66 6f 20 65 78 | 69 73 74 73 20 24 7b 6d |[info ex|ists ${m|
|00002d40| 7d 6d 6f 64 65 56 61 72 | 73 5d 7d 20 7b 0d 09 09 |}modeVar|s]} {...|
|00002d50| 09 09 66 6f 72 65 61 63 | 68 20 76 20 5b 61 72 72 |..foreac|h v [arr|
|00002d60| 61 79 20 6e 61 6d 65 73 | 20 24 7b 6d 7d 6d 6f 64 |ay names| ${m}mod|
|00002d70| 65 56 61 72 73 5d 20 7b | 0d 09 09 09 09 09 61 70 |eVars] {|......ap|
|00002d80| 70 65 6e 64 20 6c 69 6e | 65 73 20 22 73 65 74 20 |pend lin|es "set |
|00002d90| 24 7b 6d 7d 6d 6f 64 65 | 56 61 72 73 28 24 76 29 |${m}mode|Vars($v)|
|00002da0| 5c 74 5c 74 5c 7b 5b 73 | 65 74 20 24 7b 6d 7d 6d |\t\t\{[s|et ${m}m|
|00002db0| 6f 64 65 56 61 72 73 28 | 24 76 29 5d 5c 7d 5c 72 |odeVars(|$v)]\}\r|
|00002dc0| 22 0d 09 09 09 09 7d 0d | 09 09 09 09 61 70 70 65 |".....}.|....appe|
|00002dd0| 6e 64 20 6c 69 6e 65 73 | 20 22 5c 72 22 0d 09 09 |nd lines| "\r"...|
|00002de0| 09 7d 0d 09 09 7d 0d 09 | 09 0d 09 09 61 70 70 65 |.}...}..|....appe|
|00002df0| 6e 64 20 6c 69 6e 65 73 | 20 22 5c 72 5c 72 22 0d |nd lines| "\r\r".|
|00002e00| 09 09 67 6c 6f 62 61 6c | 20 61 6c 6c 46 6c 61 67 |..global| allFlag|
|00002e10| 73 20 61 6c 6c 56 61 72 | 73 0d 09 09 73 65 74 20 |s allVar|s...set |
|00002e20| 76 61 72 73 20 5b 6c 73 | 6f 72 74 20 5b 63 6f 6e |vars [ls|ort [con|
|00002e30| 63 61 74 20 24 61 6c 6c | 46 6c 61 67 73 20 24 61 |cat $all|Flags $a|
|00002e40| 6c 6c 56 61 72 73 5d 5d | 0d 09 09 65 76 61 6c 20 |llVars]]|...eval |
|00002e50| 67 6c 6f 62 61 6c 20 24 | 76 61 72 73 0d 09 09 66 |global $|vars...f|
|00002e60| 6f 72 65 61 63 68 20 66 | 20 24 76 61 72 73 20 7b |oreach f| $vars {|
|00002e70| 0d 09 09 09 61 70 70 65 | 6e 64 20 6c 69 6e 65 73 |....appe|nd lines|
|00002e80| 20 22 73 65 74 20 24 66 | 5c 74 5c 74 5c 7b 5b 73 | "set $f|\t\t\{[s|
|00002e90| 65 74 20 24 66 5d 5c 7d | 5c 72 22 0d 09 09 7d 0d |et $f]\}|\r"...}.|
|00002ea0| 0d 09 09 73 65 74 20 66 | 64 20 5b 6f 70 65 6e 20 |...set f|d [open |
|00002eb0| 22 24 48 4f 4d 45 3a 61 | 6c 70 68 61 46 6c 61 67 |"$HOME:a|lphaFlag|
|00002ec0| 73 2e 74 63 6c 22 20 22 | 77 22 5d 0d 09 09 70 75 |s.tcl" "|w"]...pu|
|00002ed0| 74 73 20 24 66 64 20 24 | 6c 69 6e 65 73 0d 09 09 |ts $fd $|lines...|
|00002ee0| 63 6c 6f 73 65 20 24 66 | 64 0d 09 09 6d 65 73 73 |close $f|d...mess|
|00002ef0| 61 67 65 20 22 4e 65 77 | 20 27 24 48 4f 4d 45 3a |age "New| '$HOME:|
|00002f00| 61 6c 70 68 61 46 6c 61 | 67 73 2e 74 63 6c 27 20 |alphaFla|gs.tcl' |
|00002f10| 77 72 69 74 74 65 6e 2e | 22 0d 09 7d 0d 7d 0d 0d |written.|"..}.}..|
|00002f20| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00002f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f70| 3d 3d 0d 0d 70 72 6f 63 | 20 73 65 74 57 69 6e 4d |==..proc| setWinM|
|00002f80| 6f 64 65 20 6e 61 6d 65 | 20 7b 0d 09 67 6c 6f 62 |ode name| {..glob|
|00002f90| 61 6c 20 77 69 6e 4d 6f | 64 65 73 20 6d 6f 64 65 |al winMo|des mode|
|00002fa0| 53 75 66 66 69 78 65 73 | 0d 09 73 65 74 20 6e 6d |Suffixes|..set nm|
|00002fb0| 20 5b 66 69 6c 65 20 74 | 61 69 6c 20 24 6e 61 6d | [file t|ail $nam|
|00002fc0| 65 5d 0d 09 69 66 20 7b | 5b 73 65 74 20 66 69 72 |e]..if {|[set fir|
|00002fd0| 73 74 20 5b 73 74 72 69 | 6e 67 20 6c 61 73 74 20 |st [stri|ng last |
|00002fe0| 22 20 3c 22 20 24 6e 6d | 5d 5d 20 3e 3d 20 30 7d |" <" $nm|]] >= 0}|
|00002ff0| 20 7b 0d 09 09 73 65 74 | 20 72 6e 61 6d 65 20 5b | {...set| rname [|
|00003000| 73 74 72 69 6e 67 20 72 | 61 6e 67 65 20 24 6e 6d |string r|ange $nm|
|00003010| 20 30 20 5b 65 78 70 72 | 20 24 66 69 72 73 74 20 | 0 [expr| $first |
|00003020| 2d 20 31 5d 5d 0d 09 7d | 20 65 6c 73 65 20 7b 0d |- 1]]..}| else {.|
|00003030| 09 09 73 65 74 20 72 6e | 61 6d 65 20 24 6e 6d 0d |..set rn|ame $nm.|
|00003040| 09 7d 0d 09 63 61 73 65 | 20 24 72 6e 61 6d 65 20 |.}..case| $rname |
|00003050| 69 6e 20 24 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |in $mode|Suffixes|
|00003060| 0d 09 73 65 74 20 77 69 | 6e 4d 6f 64 65 73 28 24 |..set wi|nModes($|
|00003070| 6e 61 6d 65 29 20 24 77 | 69 6e 4d 6f 64 65 0d 7d |name) $w|inMode.}|
|00003080| 0d 0d 0d 0d 70 72 6f 63 | 20 6e 65 77 4d 6f 64 65 |....proc| newMode|
|00003090| 20 6d 6f 64 65 20 7b 0d | 09 67 6c 6f 62 61 6c 20 | mode {.|.global |
|000030a0| 77 69 6e 4d 6f 64 65 73 | 20 6d 6f 64 65 50 72 6f |winModes| modePro|
|000030b0| 63 73 0d 09 0d 09 73 65 | 74 20 6e 61 6d 65 20 5b |cs....se|t name [|
|000030c0| 6c 69 6e 64 65 78 20 5b | 77 69 6e 4e 61 6d 65 73 |lindex [|winNames|
|000030d0| 20 2d 66 5d 20 30 5d 0d | 09 63 68 61 6e 67 65 4d | -f] 0].|.changeM|
|000030e0| 6f 64 65 20 24 6d 6f 64 | 65 0d 09 73 65 74 20 77 |ode $mod|e..set w|
|000030f0| 69 6e 4d 6f 64 65 73 28 | 24 6e 61 6d 65 29 20 24 |inModes(|$name) $|
|00003100| 6d 6f 64 65 0d 7d 0d 0d | 0d 70 72 6f 63 20 64 65 |mode.}..|.proc de|
|00003110| 61 63 74 69 76 61 74 65 | 48 6f 6f 6b 20 6e 61 6d |activate|Hook nam|
|00003120| 65 20 7b 0d 7d 0d 0d 70 | 72 6f 63 20 73 75 73 70 |e {.}..p|roc susp|
|00003130| 65 6e 64 48 6f 6f 6b 20 | 6e 61 6d 65 20 7b 0d 09 |endHook |name {..|
|00003140| 67 6c 6f 62 61 6c 20 69 | 63 6f 6e 69 66 79 4f 6e |global i|conifyOn|
|00003150| 53 77 69 74 63 68 0d 09 | 67 6c 6f 62 61 6c 20 73 |Switch..|global s|
|00003160| 75 73 70 49 63 6f 6e 65 | 64 0d 09 69 66 20 7b 24 |uspIcone|d..if {$|
|00003170| 69 63 6f 6e 69 66 79 4f | 6e 53 77 69 74 63 68 7d |iconifyO|nSwitch}|
|00003180| 20 7b 0d 09 09 73 65 74 | 20 77 69 6e 73 20 5b 77 | {...set| wins [w|
|00003190| 69 6e 4e 61 6d 65 73 20 | 2d 66 5d 0d 09 09 66 6f |inNames |-f]...fo|
|000031a0| 72 65 61 63 68 20 77 69 | 6e 20 24 77 69 6e 73 20 |reach wi|n $wins |
|000031b0| 7b 0d 09 09 09 69 66 20 | 7b 21 5b 69 63 6f 6e 20 |{....if |{![icon |
|000031c0| 2d 66 20 22 24 77 69 6e | 22 20 2d 71 5d 7d 20 7b |-f "$win|" -q]} {|
|000031d0| 0d 09 09 09 09 73 65 74 | 20 73 75 73 70 49 63 6f |.....set| suspIco|
|000031e0| 6e 65 64 28 24 77 69 6e | 29 20 31 0d 09 09 09 09 |ned($win|) 1.....|
|000031f0| 69 63 6f 6e 20 2d 66 20 | 22 24 77 69 6e 22 20 2d |icon -f |"$win" -|
|00003200| 74 0d 09 09 09 7d 0d 09 | 09 7d 0d 09 7d 0d 7d 0d |t....}..|.}..}.}.|
|00003210| 0d 70 72 6f 63 20 72 65 | 73 75 6d 65 48 6f 6f 6b |.proc re|sumeHook|
|00003220| 20 6e 61 6d 65 20 7b 0d | 09 67 6c 6f 62 61 6c 20 | name {.|.global |
|00003230| 69 63 6f 6e 69 66 79 4f | 6e 53 77 69 74 63 68 20 |iconifyO|nSwitch |
|00003240| 72 65 73 75 6d 65 52 65 | 76 65 72 74 20 73 75 73 |resumeRe|vert sus|
|00003250| 70 49 63 6f 6e 65 64 0d | 09 69 66 20 7b 24 69 63 |pIconed.|.if {$ic|
|00003260| 6f 6e 69 66 79 4f 6e 53 | 77 69 74 63 68 20 26 26 |onifyOnS|witch &&|
|00003270| 20 5b 69 6e 66 6f 20 65 | 78 69 73 74 73 20 73 75 | [info e|xists su|
|00003280| 73 70 49 63 6f 6e 65 64 | 5d 7d 20 7b 0d 09 09 73 |spIconed|]} {...s|
|00003290| 65 74 20 77 69 6e 73 20 | 5b 77 69 6e 4e 61 6d 65 |et wins |[winName|
|000032a0| 73 20 2d 66 5d 0d 09 09 | 66 6f 72 65 61 63 68 20 |s -f]...|foreach |
|000032b0| 77 69 6e 20 5b 61 72 72 | 61 79 20 6e 61 6d 65 73 |win [arr|ay names|
|000032c0| 20 73 75 73 70 49 63 6f | 6e 65 64 5d 20 7b 0d 09 | suspIco|ned] {..|
|000032d0| 09 09 69 63 6f 6e 20 2d | 66 20 22 24 77 69 6e 22 |..icon -|f "$win"|
|000032e0| 20 2d 6f 0d 09 09 7d 0d | 09 09 75 6e 73 65 74 20 | -o...}.|..unset |
|000032f0| 73 75 73 70 49 63 6f 6e | 65 64 0d 09 7d 0d 09 69 |suspIcon|ed..}..i|
|00003300| 66 20 7b 24 72 65 73 75 | 6d 65 52 65 76 65 72 74 |f {$resu|meRevert|
|00003310| 7d 20 7b 0d 09 09 73 65 | 74 20 72 65 73 75 6d 65 |} {...se|t resume|
|00003320| 52 65 76 65 72 74 20 30 | 0d 09 09 72 65 76 65 72 |Revert 0|...rever|
|00003330| 74 0d 09 7d 0d 7d 0d 0d | 0d 0d 23 20 48 61 6e 64 |t..}.}..|..# Hand|
|00003340| 6c 65 73 20 64 79 6e 61 | 6d 69 63 61 6c 6c 79 20 |les dyna|mically |
|00003350| 61 64 64 69 6e 67 20 61 | 6e 64 20 64 65 6c 65 74 |adding a|nd delet|
|00003360| 69 6e 67 20 77 69 6e 64 | 6f 77 20 6e 61 6d 65 73 |ing wind|ow names|
|00003370| 20 66 72 6f 6d 20 6d 65 | 6e 75 2e 0d 70 72 6f 63 | from me|nu..proc|
|00003380| 20 61 64 64 57 69 6e 4e | 61 6d 65 20 6e 61 6d 65 | addWinN|ame name|
|00003390| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 77 69 6e 4e 61 | {..glob|al winNa|
|000033a0| 6d 65 54 6f 4e 75 6d 20 | 77 69 6e 4d 65 6e 75 20 |meToNum |winMenu |
|000033b0| 77 69 6e 4e 75 6d 54 6f | 4e 61 6d 65 20 66 75 6c |winNumTo|Name ful|
|000033c0| 6c 4e 61 6d 65 73 0d 09 | 0d 09 66 6f 72 20 7b 73 |lNames..|..for {s|
|000033d0| 65 74 20 69 20 30 7d 20 | 7b 24 69 3c 31 30 30 7d |et i 0} |{$i<100}|
|000033e0| 20 7b 69 6e 63 72 20 69 | 7d 20 7b 0d 09 09 69 66 | {incr i|} {...if|
|000033f0| 20 7b 5b 63 61 74 63 68 | 20 7b 73 65 74 20 6e 6d | {[catch| {set nm|
|00003400| 20 24 77 69 6e 4e 75 6d | 54 6f 4e 61 6d 65 28 24 | $winNum|ToName($|
|00003410| 69 29 7d 20 72 65 73 5d | 20 3d 3d 20 22 31 22 7d |i)} res]| == "1"}|
|00003420| 20 7b 0d 09 09 09 69 66 | 20 7b 24 66 75 6c 6c 4e | {....if| {$fullN|
|00003430| 61 6d 65 73 20 21 3d 20 | 22 30 22 7d 20 7b 0d 09 |ames != |"0"} {..|
|00003440| 09 09 09 73 65 74 20 6e | 6d 20 24 6e 61 6d 65 0d |...set n|m $name.|
|00003450| 09 09 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 09 09 |...} els|e {.....|
|00003460| 72 65 67 65 78 70 20 7b | 5b 5e 3a 5d 2a 24 7d 20 |regexp {|[^:]*$} |
|00003470| 24 6e 61 6d 65 20 6e 6d | 0d 09 09 09 7d 0d 09 09 |$name nm|....}...|
|00003480| 09 69 66 20 7b 24 69 20 | 3c 20 31 30 7d 20 7b 0d |.if {$i |< 10} {.|
|00003490| 09 09 09 09 61 64 64 4d | 65 6e 75 49 74 65 6d 20 |....addM|enuItem |
|000034a0| 2d 6d 20 2d 6c 20 22 2f | 24 69 22 20 24 77 69 6e |-m -l "/|$i" $win|
|000034b0| 4d 65 6e 75 20 24 6e 6d | 0d 09 09 09 7d 20 65 6c |Menu $nm|....} el|
|000034c0| 73 65 20 7b 0d 09 09 09 | 09 61 64 64 4d 65 6e 75 |se {....|.addMenu|
|000034d0| 49 74 65 6d 20 2d 6d 20 | 2d 6c 20 22 22 20 24 77 |Item -m |-l "" $w|
|000034e0| 69 6e 4d 65 6e 75 20 24 | 6e 6d 0d 09 09 09 7d 0d |inMenu $|nm....}.|
|000034f0| 09 09 09 73 65 74 20 77 | 69 6e 4e 75 6d 54 6f 4e |...set w|inNumToN|
|00003500| 61 6d 65 28 24 69 29 20 | 24 6e 61 6d 65 0d 09 09 |ame($i) |$name...|
|00003510| 09 73 65 74 20 77 69 6e | 4e 61 6d 65 54 6f 4e 75 |.set win|NameToNu|
|00003520| 6d 28 24 6e 61 6d 65 29 | 20 24 69 0d 09 09 09 72 |m($name)| $i....r|
|00003530| 65 74 75 72 6e 0d 09 09 | 7d 0d 09 7d 0d 7d 0d 0d |eturn...|}..}.}..|
|00003540| 70 72 6f 63 20 72 65 6d | 6f 76 65 57 69 6e 4e 61 |proc rem|oveWinNa|
|00003550| 6d 65 20 6e 61 6d 65 20 | 7b 0d 09 67 6c 6f 62 61 |me name |{..globa|
|00003560| 6c 20 77 69 6e 4e 61 6d | 65 54 6f 4e 75 6d 20 77 |l winNam|eToNum w|
|00003570| 69 6e 4e 75 6d 54 6f 4e | 61 6d 65 20 66 75 6c 6c |inNumToN|ame full|
|00003580| 4e 61 6d 65 73 20 77 69 | 6e 4d 65 6e 75 0d 09 0d |Names wi|nMenu...|
|00003590| 09 73 65 74 20 6e 75 6d | 20 24 77 69 6e 4e 61 6d |.set num| $winNam|
|000035a0| 65 54 6f 4e 75 6d 28 24 | 6e 61 6d 65 29 0d 09 75 |eToNum($|name)..u|
|000035b0| 6e 73 65 74 20 77 69 6e | 4e 75 6d 54 6f 4e 61 6d |nset win|NumToNam|
|000035c0| 65 28 24 6e 75 6d 29 0d | 09 75 6e 73 65 74 20 77 |e($num).|.unset w|
|000035d0| 69 6e 4e 61 6d 65 54 6f | 4e 75 6d 28 24 6e 61 6d |inNameTo|Num($nam|
|000035e0| 65 29 0d 09 69 66 20 7b | 24 66 75 6c 6c 4e 61 6d |e)..if {|$fullNam|
|000035f0| 65 73 20 3d 3d 20 22 31 | 22 7d 20 7b 0d 09 09 64 |es == "1|"} {...d|
|00003600| 65 6c 65 74 65 4d 65 6e | 75 49 74 65 6d 20 2d 6d |eleteMen|uItem -m|
|00003610| 20 24 77 69 6e 4d 65 6e | 75 20 24 6e 61 6d 65 0d | $winMen|u $name.|
|00003620| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 72 65 67 65 |.} else |{...rege|
|00003630| 78 70 20 7b 5b 5e 3a 5d | 2a 24 7d 20 24 6e 61 6d |xp {[^:]|*$} $nam|
|00003640| 65 20 6e 6d 0d 09 09 64 | 65 6c 65 74 65 4d 65 6e |e nm...d|eleteMen|
|00003650| 75 49 74 65 6d 20 2d 6d | 20 24 77 69 6e 4d 65 6e |uItem -m| $winMen|
|00003660| 75 20 24 6e 6d 0d 09 7d | 0d 7d 0d 0d 0d 70 72 6f |u $nm..}|.}...pro|
|00003670| 63 20 6d 65 6e 75 57 69 | 6e 20 7b 6d 65 6e 75 20 |c menuWi|n {menu |
|00003680| 6e 61 6d 65 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |name} {.|.global |
|00003690| 77 69 6e 4e 61 6d 65 54 | 6f 4e 75 6d 0d 0d 09 73 |winNameT|oNum...s|
|000036a0| 65 74 20 6e 6d 73 20 5b | 61 72 72 61 79 20 6e 61 |et nms [|array na|
|000036b0| 6d 65 73 20 77 69 6e 4e | 61 6d 65 54 6f 4e 75 6d |mes winN|ameToNum|
|000036c0| 5d 0d 09 66 6f 72 65 61 | 63 68 20 6e 6d 20 24 6e |]..forea|ch nm $n|
|000036d0| 6d 73 20 7b 0d 09 09 69 | 66 20 7b 5b 73 74 72 69 |ms {...i|f {[stri|
|000036e0| 6e 67 20 6d 61 74 63 68 | 20 2a 24 6e 61 6d 65 20 |ng match| *$name |
|000036f0| 24 6e 6d 5d 20 3d 3d 20 | 22 31 22 7d 20 20 7b 0d |$nm] == |"1"} {.|
|00003700| 09 09 09 62 72 69 6e 67 | 54 6f 46 72 6f 6e 74 20 |...bring|ToFront |
|00003710| 24 6e 61 6d 65 0d 09 09 | 09 69 66 20 5b 69 63 6f |$name...|.if [ico|
|00003720| 6e 20 2d 71 5d 20 7b 20 | 69 63 6f 6e 20 2d 66 20 |n -q] { |icon -f |
|00003730| 24 6e 61 6d 65 20 2d 6f | 20 7d 0d 09 09 09 72 65 |$name -o| }....re|
|00003740| 74 75 72 6e 0d 09 09 7d | 0d 09 7d 0d 09 72 65 74 |turn...}|..}..ret|
|00003750| 75 72 6e 20 22 6e 6f 72 | 6d 61 6c 22 0d 7d 0d 0d |urn "nor|mal".}..|
|00003760| 0d 0d 70 72 6f 63 20 63 | 68 61 6e 67 65 4d 6f 64 |..proc c|hangeMod|
|00003770| 65 20 7b 6e 65 77 4d 6f | 64 65 7d 20 7b 0d 09 67 |e {newMo|de} {..g|
|00003780| 6c 6f 62 61 6c 20 6c 61 | 73 74 4d 6f 64 65 20 6d |lobal la|stMode m|
|00003790| 6f 64 65 4d 65 6e 75 73 | 20 64 75 6d 6d 79 50 72 |odeMenus| dummyPr|
|000037a0| 6f 63 20 6d 6f 64 65 0d | 09 0d 09 63 61 74 63 68 |oc mode.|...catch|
|000037b0| 20 7b 64 69 73 70 6c 61 | 79 4d 6f 64 65 20 24 6e | {displa|yMode $n|
|000037c0| 65 77 4d 6f 64 65 7d 0d | 09 73 65 74 20 6c 61 73 |ewMode}.|.set las|
|000037d0| 74 4d 6f 64 65 20 24 6d | 6f 64 65 0d 09 73 65 74 |tMode $m|ode..set|
|000037e0| 20 6d 6f 64 65 20 24 6e | 65 77 4d 6f 64 65 0d 09 | mode $n|ewMode..|
|000037f0| 69 66 20 7b 24 6c 61 73 | 74 4d 6f 64 65 20 3d 3d |if {$las|tMode ==|
|00003800| 20 24 6d 6f 64 65 7d 20 | 72 65 74 75 72 6e 0d 0d | $mode} |return..|
|00003810| 09 67 6c 6f 62 61 6c 20 | 24 7b 6d 6f 64 65 7d 6d |.global |${mode}m|
|00003820| 6f 64 65 56 61 72 73 0d | 09 69 66 20 7b 5b 69 6e |odeVars.|.if {[in|
|00003830| 66 6f 20 65 78 69 73 74 | 73 20 24 7b 6d 6f 64 65 |fo exist|s ${mode|
|00003840| 7d 6d 6f 64 65 56 61 72 | 73 5d 7d 20 7b 0d 09 09 |}modeVar|s]} {...|
|00003850| 66 6f 72 65 61 63 68 20 | 76 20 5b 61 72 72 61 79 |foreach |v [array|
|00003860| 20 6e 61 6d 65 73 20 24 | 7b 6d 6f 64 65 7d 6d 6f | names $|{mode}mo|
|00003870| 64 65 56 61 72 73 5d 20 | 7b 0d 09 09 09 67 6c 6f |deVars] |{....glo|
|00003880| 62 61 6c 20 24 76 0d 09 | 09 09 73 65 74 20 24 76 |bal $v..|..set $v|
|00003890| 20 5b 73 65 74 20 24 7b | 6d 6f 64 65 7d 6d 6f 64 | [set ${|mode}mod|
|000038a0| 65 56 61 72 73 28 24 76 | 29 5d 0d 09 09 7d 0d 09 |eVars($v|)]...}..|
|000038b0| 7d 0d 0d 09 69 66 20 7b | 5b 69 6e 66 6f 20 65 78 |}...if {|[info ex|
|000038c0| 69 73 74 73 20 64 75 6d | 6d 79 50 72 6f 63 28 24 |ists dum|myProc($|
|000038d0| 6d 6f 64 65 29 5d 7d 20 | 7b 20 24 64 75 6d 6d 79 |mode)]} |{ $dummy|
|000038e0| 50 72 6f 63 28 24 6d 6f | 64 65 29 20 7d 0d 0d 09 |Proc($mo|de) }...|
|000038f0| 69 66 20 7b 5b 69 6e 66 | 6f 20 65 78 69 73 74 73 |if {[inf|o exists|
|00003900| 20 6d 6f 64 65 4d 65 6e | 75 73 28 24 6c 61 73 74 | modeMen|us($last|
|00003910| 4d 6f 64 65 29 5d 7d 20 | 7b 0d 09 09 66 6f 72 65 |Mode)]} |{...fore|
|00003920| 61 63 68 20 6d 20 24 6d | 6f 64 65 4d 65 6e 75 73 |ach m $m|odeMenus|
|00003930| 28 24 6c 61 73 74 4d 6f | 64 65 29 20 7b 0d 09 09 |($lastMo|de) {...|
|00003940| 09 67 6c 6f 62 61 6c 20 | 24 6d 0d 09 09 09 63 61 |.global |$m....ca|
|00003950| 74 63 68 20 7b 72 65 6d | 6f 76 65 4d 65 6e 75 20 |tch {rem|oveMenu |
|00003960| 5b 73 65 74 20 24 6d 5d | 7d 0d 09 09 7d 0d 09 7d |[set $m]|}...}..}|
|00003970| 0d 09 69 66 20 7b 5b 69 | 6e 66 6f 20 65 78 69 73 |..if {[i|nfo exis|
|00003980| 74 73 20 6d 6f 64 65 4d | 65 6e 75 73 28 24 6d 6f |ts modeM|enus($mo|
|00003990| 64 65 29 5d 7d 20 7b 0d | 09 09 66 6f 72 65 61 63 |de)]} {.|..foreac|
|000039a0| 68 20 6d 20 24 6d 6f 64 | 65 4d 65 6e 75 73 28 24 |h m $mod|eMenus($|
|000039b0| 6d 6f 64 65 29 20 7b 0d | 09 09 09 67 6c 6f 62 61 |mode) {.|...globa|
|000039c0| 6c 20 24 6d 0d 09 09 09 | 63 61 74 63 68 20 7b 69 |l $m....|catch {i|
|000039d0| 6e 73 65 72 74 4d 65 6e | 75 20 5b 73 65 74 20 24 |nsertMen|u [set $|
|000039e0| 6d 5d 7d 0d 09 09 7d 0d | 09 7d 0d 7d 0d 0d 0d 70 |m]}...}.|.}.}...p|
|000039f0| 72 6f 63 20 73 65 74 4d | 6f 64 65 4d 65 6e 75 73 |roc setM|odeMenus|
|00003a00| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 6d 6f | {} {..g|lobal mo|
|00003a10| 64 65 20 6d 6f 64 65 4d | 65 6e 75 73 20 61 6c 6c |de modeM|enus all|
|00003a20| 4d 6f 64 65 4d 65 6e 75 | 73 20 6d 6f 64 69 66 69 |ModeMenu|s modifi|
|00003a30| 65 64 4d 6f 64 65 4d 65 | 6e 75 73 0d 0d 09 73 65 |edModeMe|nus...se|
|00003a40| 74 20 6d 65 6e 75 73 20 | 5b 6c 69 73 74 70 69 63 |t menus |[listpic|
|00003a50| 6b 20 2d 70 20 22 50 69 | 63 6b 20 6d 65 6e 75 73 |k -p "Pi|ck menus|
|00003a60| 20 66 6f 72 20 6d 6f 64 | 65 20 27 24 6d 6f 64 65 | for mod|e '$mode|
|00003a70| 27 3a 22 20 2d 6c 20 2d | 4c 20 24 6d 6f 64 65 4d |':" -l -|L $modeM|
|00003a80| 65 6e 75 73 28 24 6d 6f | 64 65 29 20 5b 6c 73 6f |enus($mo|de) [lso|
|00003a90| 72 74 20 24 61 6c 6c 4d | 6f 64 65 4d 65 6e 75 73 |rt $allM|odeMenus|
|00003aa0| 5d 5d 0d 09 69 66 20 7b | 21 5b 6c 6c 65 6e 67 74 |]]..if {|![llengt|
|00003ab0| 68 20 24 6d 65 6e 75 73 | 5d 7d 20 72 65 74 75 72 |h $menus|]} retur|
|00003ac0| 6e 0d 09 73 65 74 20 6d | 6f 64 65 4d 65 6e 75 73 |n..set m|odeMenus|
|00003ad0| 28 24 6d 6f 64 65 29 20 | 24 6d 65 6e 75 73 0d 0d |($mode) |$menus..|
|00003ae0| 09 6c 61 70 70 65 6e 64 | 20 6d 6f 64 69 66 69 65 |.lappend| modifie|
|00003af0| 64 4d 6f 64 65 4d 65 6e | 75 73 20 24 6d 6f 64 65 |dModeMen|us $mode|
|00003b00| 0d 0d 09 66 6f 72 65 61 | 63 68 20 6d 20 24 61 6c |...forea|ch m $al|
|00003b10| 6c 4d 6f 64 65 4d 65 6e | 75 73 20 7b 0d 09 09 67 |lModeMen|us {...g|
|00003b20| 6c 6f 62 61 6c 20 24 6d | 0d 09 09 63 61 74 63 68 |lobal $m|...catch|
|00003b30| 20 7b 72 65 6d 6f 76 65 | 4d 65 6e 75 20 5b 73 65 | {remove|Menu [se|
|00003b40| 74 20 24 6d 5d 7d 0d 09 | 7d 0d 09 66 6f 72 65 61 |t $m]}..|}..forea|
|00003b50| 63 68 20 6d 20 24 6d 65 | 6e 75 73 20 7b 0d 09 09 |ch m $me|nus {...|
|00003b60| 67 6c 6f 62 61 6c 20 24 | 6d 0d 09 09 63 61 74 63 |global $|m...catc|
|00003b70| 68 20 7b 69 6e 73 65 72 | 74 4d 65 6e 75 20 5b 73 |h {inser|tMenu [s|
|00003b80| 65 74 20 24 6d 5d 7d 0d | 09 7d 0d 7d 0d 0d 0d 23 |et $m]}.|.}.}...#|
|00003b90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ba0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003bb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003bc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003bd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 23 20 |========|=====.# |
|00003be0| 48 6f 6f 6b 20 70 72 6f | 63 73 20 72 65 63 6f 67 |Hook pro|cs recog|
|00003bf0| 6e 69 7a 65 64 3a 20 22 | 6f 70 65 6e 48 6f 6f 6b |nized: "|openHook|
|00003c00| 22 2c 20 22 63 6c 6f 73 | 65 48 6f 6f 6b 22 2c 20 |", "clos|eHook", |
|00003c10| 22 61 63 74 69 76 61 74 | 65 48 6f 6f 6b 22 2c 20 |"activat|eHook", |
|00003c20| 22 64 65 61 63 74 69 76 | 61 74 65 48 6f 6f 6b 22 |"deactiv|ateHook"|
|00003c30| 2c 20 0d 23 09 09 09 09 | 20 09 09 20 22 73 75 73 |, .#....| .. "sus|
|00003c40| 70 65 6e 64 48 6f 6f 6b | 22 2c 20 22 73 61 76 65 |pendHook|", "save|
|00003c50| 61 73 48 6f 6f 6b 22 2c | 20 22 73 61 76 65 48 6f |asHook",| "saveHo|
|00003c60| 6f 6b 22 2c 20 61 6e 64 | 20 22 72 65 73 75 6d 65 |ok", and| "resume|
|00003c70| 48 6f 6f 6b 22 2e 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |Hook"..#|========|
|00003c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003cb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003cc0| 3d 3d 3d 3d 3d 0d 0d 69 | 66 20 7b 21 5b 69 6e 66 |=====..i|f {![inf|
|00003cd0| 6f 20 65 78 69 73 74 73 | 20 77 69 6e 41 63 74 69 |o exists| winActi|
|00003ce0| 76 65 5d 7d 20 7b 73 65 | 74 20 77 69 6e 41 63 74 |ve]} {se|t winAct|
|00003cf0| 69 76 65 20 22 22 7d 0d | 0d 23 20 45 76 65 6e 74 |ive ""}.|.# Event|
|00003d00| 20 68 6f 6f 6b 73 20 2d | 20 73 65 74 20 73 70 65 | hooks -| set spe|
|00003d10| 63 69 66 69 63 20 6d 6f | 64 65 73 20 77 68 65 6e |cific mo|des when|
|00003d20| 20 66 69 6c 65 73 20 6f | 70 65 6e 65 64 2e 0d 70 | files o|pened..p|
|00003d30| 72 6f 63 20 6f 70 65 6e | 48 6f 6f 6b 20 6e 61 6d |roc open|Hook nam|
|00003d40| 65 20 7b 0d 09 67 6c 6f | 62 61 6c 20 77 69 6e 4d |e {..glo|bal winM|
|00003d50| 6f 64 65 73 20 77 69 6e | 41 63 74 69 76 65 0d 09 |odes win|Active..|
|00003d60| 63 68 61 6e 67 65 4d 6f | 64 65 20 24 77 69 6e 4d |changeMo|de $winM|
|00003d70| 6f 64 65 73 28 24 6e 61 | 6d 65 29 0d 09 69 66 20 |odes($na|me)..if |
|00003d80| 7b 24 6e 61 6d 65 20 3d | 3d 20 7b 2a 54 6f 6f 6c |{$name =|= {*Tool|
|00003d90| 73 65 72 76 65 72 20 73 | 68 65 6c 6c 2a 7d 7d 20 |server s|hell*}} |
|00003da0| 73 74 61 72 74 4d 50 57 | 0d 09 61 64 64 57 69 6e |startMPW|..addWin|
|00003db0| 4e 61 6d 65 20 24 6e 61 | 6d 65 0d 09 6d 65 73 73 |Name $na|me..mess|
|00003dc0| 61 67 65 20 22 22 0d 7d | 0d 0d 0d 0d 23 20 66 75 |age "".}|....# fu|
|00003dd0| 6c 6c 20 70 61 74 68 6e | 61 6d 65 0d 70 72 6f 63 |ll pathn|ame.proc|
|00003de0| 20 73 61 76 65 48 6f 6f | 6b 20 6e 61 6d 65 20 7b | saveHoo|k name {|
|00003df0| 0d 09 67 6c 6f 62 61 6c | 20 62 61 63 6b 75 70 20 |..global| backup |
|00003e00| 62 61 63 6b 45 78 74 65 | 6e 73 69 6f 6e 20 62 61 |backExte|nsion ba|
|00003e10| 63 6b 44 69 72 20 6d 6f | 64 65 0d 09 0d 09 69 66 |ckDir mo|de....if|
|00003e20| 20 7b 28 24 6d 6f 64 65 | 20 3d 3d 20 22 43 22 29 | {($mode| == "C")|
|00003e30| 20 7c 7c 20 28 24 6d 6f | 64 65 20 3d 3d 20 22 43 | || ($mo|de == "C|
|00003e40| 2b 2b 22 29 7d 20 7b 63 | 61 74 63 68 20 7b 6d 6f |++")} {c|atch {mo|
|00003e50| 64 69 66 69 65 64 7d 7d | 0d 0d 09 69 66 20 28 24 |dified}}|...if ($|
|00003e60| 62 61 63 6b 75 70 29 20 | 7b 0d 09 09 69 66 20 7b |backup) |{...if {|
|00003e70| 21 5b 73 74 72 69 6e 67 | 20 6c 65 6e 67 74 68 20 |![string| length |
|00003e80| 5b 73 65 74 20 64 69 72 | 20 24 62 61 63 6b 44 69 |[set dir| $backDi|
|00003e90| 72 5d 5d 7d 20 7b 0d 09 | 09 09 73 65 74 20 64 69 |r]]} {..|..set di|
|00003ea0| 72 20 5b 66 69 6c 65 20 | 64 69 72 6e 61 6d 65 20 |r [file |dirname |
|00003eb0| 24 6e 61 6d 65 5d 0d 09 | 09 7d 0d 09 09 69 66 20 |$name]..|.}...if |
|00003ec0| 7b 21 5b 66 69 6c 65 20 | 65 78 69 73 74 73 20 24 |{![file |exists $|
|00003ed0| 64 69 72 5d 7d 20 7b 0d | 09 09 09 69 66 20 7b 5b |dir]} {.|...if {[|
|00003ee0| 61 73 6b 79 65 73 6e 6f | 20 22 43 72 65 61 74 65 |askyesno| "Create|
|00003ef0| 20 62 61 63 6b 75 70 20 | 64 69 72 20 27 24 64 69 | backup |dir '$di|
|00003f00| 72 27 3f 22 5d 20 3d 3d | 20 22 79 65 73 22 7d 20 |r'?"] ==| "yes"} |
|00003f10| 7b 0d 09 09 09 09 6d 6b | 64 69 72 20 24 64 69 72 |{.....mk|dir $dir|
|00003f20| 0d 09 09 09 7d 0d 09 09 | 7d 0d 09 09 63 61 74 63 |....}...|}...catc|
|00003f30| 68 20 7b 72 6d 20 24 64 | 69 72 3a 5b 66 69 6c 65 |h {rm $d|ir:[file|
|00003f40| 20 74 61 69 6c 20 24 6e | 61 6d 65 5d 24 62 61 63 | tail $n|ame]$bac|
|00003f50| 6b 45 78 74 65 6e 73 69 | 6f 6e 7d 0d 09 09 63 61 |kExtensi|on}...ca|
|00003f60| 74 63 68 20 7b 63 70 20 | 24 6e 61 6d 65 20 24 64 |tch {cp |$name $d|
|00003f70| 69 72 3a 5b 66 69 6c 65 | 20 74 61 69 6c 20 24 6e |ir:[file| tail $n|
|00003f80| 61 6d 65 5d 24 62 61 63 | 6b 45 78 74 65 6e 73 69 |ame]$bac|kExtensi|
|00003f90| 6f 6e 7d 0d 09 7d 0d 7d | 0d 0d 23 20 43 6c 65 61 |on}..}.}|..# Clea|
|00003fa0| 6e 20 75 70 20 74 68 65 | 20 6d 61 72 6b 20 73 74 |n up the| mark st|
|00003fb0| 61 63 6b 2e 0d 70 72 6f | 63 20 63 6c 6f 73 65 48 |ack..pro|c closeH|
|00003fc0| 6f 6f 6b 20 6e 61 6d 65 | 20 7b 0d 09 67 6c 6f 62 |ook name| {..glob|
|00003fd0| 61 6c 20 6d 61 72 6b 53 | 74 61 63 6b 20 77 69 6e |al markS|tack win|
|00003fe0| 4d 6f 64 65 73 20 77 69 | 6e 41 63 74 69 76 65 0d |Modes wi|nActive.|
|00003ff0| 0d 09 75 6e 73 65 74 20 | 77 69 6e 4d 6f 64 65 73 |..unset |winModes|
|00004000| 28 24 6e 61 6d 65 29 0d | 09 69 66 20 5b 6c 6c 65 |($name).|.if [lle|
|00004010| 6e 67 74 68 20 24 6d 61 | 72 6b 53 74 61 63 6b 5d |ngth $ma|rkStack]|
|00004020| 20 7b 0d 09 09 73 65 74 | 20 6d 61 72 6b 53 74 61 | {...set| markSta|
|00004030| 63 6b 20 5b 72 65 6d 6f | 76 65 50 61 74 20 24 6d |ck [remo|vePat $m|
|00004040| 61 72 6b 53 74 61 63 6b | 20 24 6e 61 6d 65 2a 5d |arkStack| $name*]|
|00004050| 0d 09 7d 0d 09 72 65 6d | 6f 76 65 57 69 6e 4e 61 |..}..rem|oveWinNa|
|00004060| 6d 65 20 24 6e 61 6d 65 | 0d 0d 09 69 66 20 7b 5b |me $name|...if {[|
|00004070| 73 65 74 20 69 6e 64 20 | 5b 6c 73 65 61 72 63 68 |set ind |[lsearch|
|00004080| 20 24 77 69 6e 41 63 74 | 69 76 65 20 24 6e 61 6d | $winAct|ive $nam|
|00004090| 65 5d 5d 20 3e 3d 20 30 | 7d 20 7b 0d 09 09 73 65 |e]] >= 0|} {...se|
|000040a0| 74 20 77 69 6e 41 63 74 | 69 76 65 20 5b 6c 72 65 |t winAct|ive [lre|
|000040b0| 70 6c 61 63 65 20 24 77 | 69 6e 41 63 74 69 76 65 |place $w|inActive|
|000040c0| 20 24 69 6e 64 20 24 69 | 6e 64 5d 0d 09 7d 0d 7d | $ind $i|nd]..}.}|
|000040d0| 0d 0d 0d 70 72 6f 63 20 | 73 61 76 65 61 73 48 6f |...proc |saveasHo|
|000040e0| 6f 6b 20 7b 6f 6c 64 4e | 61 6d 65 20 6e 65 77 4e |ok {oldN|ame newN|
|000040f0| 61 6d 65 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 77 |ame} {..|global w|
|00004100| 69 6e 4d 6f 64 65 73 20 | 77 69 6e 41 63 74 69 76 |inModes |winActiv|
|00004110| 65 0d 09 72 65 6d 6f 76 | 65 57 69 6e 4e 61 6d 65 |e..remov|eWinName|
|00004120| 20 24 6f 6c 64 4e 61 6d | 65 0d 09 61 64 64 57 69 | $oldNam|e..addWi|
|00004130| 6e 4e 61 6d 65 20 24 6e | 65 77 4e 61 6d 65 0d 09 |nName $n|ewName..|
|00004140| 73 65 74 57 69 6e 4d 6f | 64 65 20 24 6e 65 77 4e |setWinMo|de $newN|
|00004150| 61 6d 65 0d 09 63 68 61 | 6e 67 65 4d 6f 64 65 20 |ame..cha|ngeMode |
|00004160| 24 77 69 6e 4d 6f 64 65 | 73 28 24 6e 65 77 4e 61 |$winMode|s($newNa|
|00004170| 6d 65 29 0d 09 0d 09 69 | 66 20 7b 5b 73 65 74 20 |me)....i|f {[set |
|00004180| 69 6e 64 20 5b 6c 73 65 | 61 72 63 68 20 24 77 69 |ind [lse|arch $wi|
|00004190| 6e 41 63 74 69 76 65 20 | 24 6f 6c 64 4e 61 6d 65 |nActive |$oldName|
|000041a0| 5d 5d 20 3e 3d 20 30 7d | 20 7b 0d 09 09 73 65 74 |]] >= 0}| {...set|
|000041b0| 20 77 69 6e 41 63 74 69 | 76 65 20 5b 6c 72 65 70 | winActi|ve [lrep|
|000041c0| 6c 61 63 65 20 24 77 69 | 6e 41 63 74 69 76 65 20 |lace $wi|nActive |
|000041d0| 24 69 6e 64 20 24 69 6e | 64 5d 0d 09 7d 0d 09 73 |$ind $in|d]..}..s|
|000041e0| 65 74 20 77 69 6e 41 63 | 74 69 76 65 20 5b 6c 69 |et winAc|tive [li|
|000041f0| 6e 73 65 72 74 20 24 77 | 69 6e 41 63 74 69 76 65 |nsert $w|inActive|
|00004200| 20 30 20 24 6e 65 77 4e | 61 6d 65 5d 0d 7d 0d 0d | 0 $newN|ame].}..|
|00004210| 69 66 20 7b 21 5b 69 6e | 66 6f 20 65 78 69 73 74 |if {![in|fo exist|
|00004220| 73 20 61 63 74 69 76 65 | 73 5d 7d 20 7b 73 65 74 |s active|s]} {set|
|00004230| 20 61 63 74 69 76 65 73 | 20 30 7d 0d 0d 23 20 61 | actives| 0}..# a|
|00004240| 6e 64 2c 20 69 6e 73 74 | 61 6c 6c 20 61 20 6e 65 |nd, inst|all a ne|
|00004250| 77 20 27 77 69 6e 41 63 | 74 69 76 65 27 20 70 61 |w 'winAc|tive' pa|
|00004260| 74 63 68 20 2c 20 74 6f | 20 27 61 63 74 69 76 61 |tch , to| 'activa|
|00004270| 74 65 48 6f 6f 6b 27 3a | 0d 0d 70 72 6f 63 20 61 |teHook':|..proc a|
|00004280| 63 74 69 76 61 74 65 48 | 6f 6f 6b 20 6e 61 6d 65 |ctivateH|ook name|
|00004290| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 77 69 6e 4d 6f | {..glob|al winMo|
|000042a0| 64 65 73 20 77 69 6e 41 | 63 74 69 76 65 0d 09 69 |des winA|ctive..i|
|000042b0| 66 20 7b 21 5b 69 6e 66 | 6f 20 65 78 69 73 74 73 |f {![inf|o exists|
|000042c0| 20 77 69 6e 4d 6f 64 65 | 73 28 24 6e 61 6d 65 29 | winMode|s($name)|
|000042d0| 5d 7d 20 7b 0d 09 09 73 | 65 74 57 69 6e 4d 6f 64 |]} {...s|etWinMod|
|000042e0| 65 20 24 6e 61 6d 65 0d | 09 7d 0d 09 63 68 61 6e |e $name.|.}..chan|
|000042f0| 67 65 4d 6f 64 65 20 24 | 77 69 6e 4d 6f 64 65 73 |geMode $|winModes|
|00004300| 28 24 6e 61 6d 65 29 0d | 0d 09 69 66 20 7b 5b 73 |($name).|..if {[s|
|00004310| 65 74 20 69 6e 64 20 5b | 6c 73 65 61 72 63 68 20 |et ind [|lsearch |
|00004320| 24 77 69 6e 41 63 74 69 | 76 65 20 24 6e 61 6d 65 |$winActi|ve $name|
|00004330| 5d 5d 20 3d 3d 20 2d 31 | 7d 20 7b 0d 09 09 73 65 |]] == -1|} {...se|
|00004340| 74 20 77 69 6e 41 63 74 | 69 76 65 20 5b 6c 69 6e |t winAct|ive [lin|
|00004350| 73 65 72 74 20 24 77 69 | 6e 41 63 74 69 76 65 20 |sert $wi|nActive |
|00004360| 30 20 24 6e 61 6d 65 5d | 0d 09 09 72 65 74 75 72 |0 $name]|...retur|
|00004370| 6e 0d 09 7d 0d 09 69 66 | 20 7b 24 69 6e 64 20 3e |n..}..if| {$ind >|
|00004380| 3d 20 31 7d 20 7b 0d 09 | 09 73 65 74 20 77 69 6e |= 1} {..|.set win|
|00004390| 41 63 74 69 76 65 20 5b | 6c 72 65 70 6c 61 63 65 |Active [|lreplace|
|000043a0| 20 24 77 69 6e 41 63 74 | 69 76 65 20 24 69 6e 64 | $winAct|ive $ind|
|000043b0| 20 24 69 6e 64 5d 0d 09 | 09 73 65 74 20 77 69 6e | $ind]..|.set win|
|000043c0| 41 63 74 69 76 65 20 5b | 6c 69 6e 73 65 72 74 20 |Active [|linsert |
|000043d0| 24 77 69 6e 41 63 74 69 | 76 65 20 30 20 24 6e 61 |$winActi|ve 0 $na|
|000043e0| 6d 65 5d 0d 09 7d 0d 0d | 7d 0d 0d 0d 70 72 6f 63 |me]..}..|}...proc|
|000043f0| 20 64 69 72 74 79 48 6f | 6f 6b 20 7b 6e 61 6d 65 | dirtyHo|ok {name|
|00004400| 20 64 69 72 74 79 7d 20 | 7b 0d 09 67 6c 6f 62 61 | dirty} |{..globa|
|00004410| 6c 20 77 69 6e 4d 65 6e | 75 0d 09 6d 61 72 6b 4d |l winMen|u..markM|
|00004420| 65 6e 75 49 74 65 6d 20 | 24 77 69 6e 4d 65 6e 75 |enuItem |$winMenu|
|00004430| 20 5b 66 69 6c 65 20 74 | 61 69 6c 20 24 6e 61 6d | [file t|ail $nam|
|00004440| 65 5d 20 24 64 69 72 74 | 79 20 22 d7 22 0d 7d 0d |e] $dirt|y ".".}.|
|00004450| 0d 0d 73 65 74 20 6d 6f | 64 69 66 69 65 64 56 61 |..set mo|difiedVa|
|00004460| 72 73 09 09 7b 7d 0d 73 | 65 74 20 6d 6f 64 69 66 |rs..{}.s|et modif|
|00004470| 69 65 64 4d 6f 64 65 56 | 61 72 73 09 7b 7d 0d 73 |iedModeV|ars.{}.s|
|00004480| 65 74 20 6d 6f 64 69 66 | 69 65 64 4d 6f 64 65 4d |et modif|iedModeM|
|00004490| 65 6e 75 73 09 7b 7d 0d | 0d 70 72 6f 63 20 71 75 |enus.{}.|.proc qu|
|000044a0| 69 74 48 6f 6f 6b 20 7b | 7d 20 7b 0d 09 67 6c 6f |itHook {|} {..glo|
|000044b0| 62 61 6c 20 6d 6f 64 69 | 66 69 65 64 56 61 72 73 |bal modi|fiedVars|
|000044c0| 20 6d 6f 64 69 66 69 65 | 64 4d 6f 64 65 56 61 72 | modifie|dModeVar|
|000044d0| 73 20 6d 6f 64 69 66 69 | 65 64 4d 6f 64 65 4d 65 |s modifi|edModeMe|
|000044e0| 6e 75 73 20 6d 6f 64 65 | 4d 65 6e 75 73 0d 0d 09 |nus mode|Menus...|
|000044f0| 69 66 20 7b 5b 6c 6c 65 | 6e 67 74 68 20 24 6d 6f |if {[lle|ngth $mo|
|00004500| 64 69 66 69 65 64 56 61 | 72 73 5d 20 7c 7c 20 5b |difiedVa|rs] || [|
|00004510| 6c 6c 65 6e 67 74 68 20 | 24 6d 6f 64 69 66 69 65 |llength |$modifie|
|00004520| 64 4d 6f 64 65 56 61 72 | 73 5d 20 7c 7c 20 5b 6c |dModeVar|s] || [l|
|00004530| 6c 65 6e 67 74 68 20 24 | 6d 6f 64 69 66 69 65 64 |length $|modified|
|00004540| 4d 6f 64 65 4d 65 6e 75 | 73 5d 7d 20 7b 0d 09 09 |ModeMenu|s]} {...|
|00004550| 69 66 20 7b 5b 61 73 6b | 79 65 73 6e 6f 20 22 53 |if {[ask|yesno "S|
|00004560| 61 76 65 20 63 68 61 6e | 67 65 64 20 66 6c 61 67 |ave chan|ged flag|
|00004570| 73 2f 76 61 72 73 3f 22 | 5d 20 3d 3d 20 22 79 65 |s/vars?"|] == "ye|
|00004580| 73 22 7d 20 7b 0d 09 09 | 09 66 6f 72 65 61 63 68 |s"} {...|.foreach|
|00004590| 20 66 20 5b 72 65 6d 6f | 76 65 44 75 70 73 20 24 | f [remo|veDups $|
|000045a0| 6d 6f 64 69 66 69 65 64 | 4d 6f 64 65 4d 65 6e 75 |modified|ModeMenu|
|000045b0| 73 5d 20 7b 0d 09 09 09 | 09 61 64 64 55 73 65 72 |s] {....|.addUser|
|000045c0| 4c 69 6e 65 20 22 73 65 | 74 20 6d 6f 64 65 4d 65 |Line "se|t modeMe|
|000045d0| 6e 75 73 28 24 66 29 20 | 5c 7b 24 6d 6f 64 65 4d |nus($f) |\{$modeM|
|000045e0| 65 6e 75 73 28 24 66 29 | 5c 7d 22 0d 09 09 09 7d |enus($f)|\}"....}|
|000045f0| 0d 09 09 09 66 6f 72 65 | 61 63 68 20 66 20 5b 72 |....fore|ach f [r|
|00004600| 65 6d 6f 76 65 44 75 70 | 73 20 24 6d 6f 64 69 66 |emoveDup|s $modif|
|00004610| 69 65 64 56 61 72 73 5d | 20 7b 0d 09 09 09 09 67 |iedVars]| {.....g|
|00004620| 6c 6f 62 61 6c 20 24 66 | 0d 09 09 09 09 61 64 64 |lobal $f|.....add|
|00004630| 55 73 65 72 4c 69 6e 65 | 20 22 73 65 74 20 24 66 |UserLine| "set $f|
|00004640| 20 5c 22 5b 73 65 74 20 | 24 66 5d 5c 22 22 0d 09 | \"[set |$f]\""..|
|00004650| 09 09 7d 0d 09 09 09 66 | 6f 72 65 61 63 68 20 66 |..}....f|oreach f|
|00004660| 20 5b 72 65 6d 6f 76 65 | 44 75 70 73 20 24 6d 6f | [remove|Dups $mo|
|00004670| 64 69 66 69 65 64 4d 6f | 64 65 56 61 72 73 5d 20 |difiedMo|deVars] |
|00004680| 7b 0d 09 09 09 09 73 65 | 74 20 6e 6d 20 5b 6c 69 |{.....se|t nm [li|
|00004690| 6e 64 65 78 20 24 66 20 | 30 5d 0d 09 09 09 09 73 |ndex $f |0].....s|
|000046a0| 65 74 20 6d 6f 64 65 20 | 5b 6c 69 6e 64 65 78 20 |et mode |[lindex |
|000046b0| 24 66 20 31 5d 0d 09 09 | 09 09 67 6c 6f 62 61 6c |$f 1]...|..global|
|000046c0| 20 24 6d 6f 64 65 0d 09 | 09 09 09 61 64 64 55 73 | $mode..|...addUs|
|000046d0| 65 72 4c 69 6e 65 20 22 | 73 65 74 20 5b 73 65 74 |erLine "|set [set|
|000046e0| 20 6d 6f 64 65 5d 28 24 | 6e 6d 29 20 5c 22 5b 73 | mode]($|nm) \"[s|
|000046f0| 65 74 20 5b 73 65 74 20 | 6d 6f 64 65 5d 28 24 6e |et [set |mode]($n|
|00004700| 6d 29 5d 5c 22 22 0d 09 | 09 09 7d 0d 09 09 7d 0d |m)]\""..|..}...}.|
|00004710| 09 7d 0d 7d 0d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |.}.}...#|========|
|00004720| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004730| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004740| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004760| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 70 72 6f 63 20 64 |========|..proc d|
|00004770| 65 73 63 72 69 62 65 4d | 6f 64 65 20 7b 7d 20 7b |escribeM|ode {} {|
|00004780| 0d 09 67 6c 6f 62 61 6c | 20 6d 6f 64 65 20 6d 6f |..global| mode mo|
|00004790| 64 65 53 75 66 66 69 78 | 65 73 20 6d 6f 64 65 4d |deSuffix|es modeM|
|000047a0| 65 6e 75 73 20 6d 6f 64 | 65 73 0d 09 67 6c 6f 62 |enus mod|es..glob|
|000047b0| 61 6c 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |al ${mod|e}modeVa|
|000047c0| 72 73 0d 09 0d 09 73 65 | 74 20 74 65 78 74 20 22 |rs....se|t text "|
|000047d0| 5c 72 5c 74 4d 4f 44 45 | 20 24 6d 6f 64 65 5c 72 |\r\tMODE| $mode\r|
|000047e0| 5c 72 22 0d 09 73 65 74 | 20 73 75 66 66 73 20 22 |\r"..set| suffs "|
|000047f0| 22 0d 09 73 65 74 20 66 | 69 72 73 74 20 31 0d 09 |"..set f|irst 1..|
|00004800| 66 6f 72 65 61 63 68 20 | 73 75 66 20 24 6d 6f 64 |foreach |suf $mod|
|00004810| 65 53 75 66 66 69 78 65 | 73 20 7b 0d 09 09 69 66 |eSuffixe|s {...if|
|00004820| 20 7b 28 5b 6c 6c 65 6e | 67 74 68 20 24 73 75 66 | {([llen|gth $suf|
|00004830| 5d 20 3d 3d 20 33 29 20 | 26 26 20 28 5b 6c 69 6e |] == 3) |&& ([lin|
|00004840| 64 65 78 20 24 73 75 66 | 20 31 5d 20 3d 3d 20 22 |dex $suf| 1] == "|
|00004850| 77 69 6e 4d 6f 64 65 22 | 29 20 26 26 20 28 5b 6c |winMode"|) && ([l|
|00004860| 69 6e 64 65 78 20 24 73 | 75 66 20 32 5d 20 3d 3d |index $s|uf 2] ==|
|00004870| 20 24 6d 6f 64 65 29 7d | 20 7b 0d 09 09 09 69 66 | $mode)}| {....if|
|00004880| 20 7b 24 66 69 72 73 74 | 7d 20 7b 0d 09 09 09 09 | {$first|} {.....|
|00004890| 6c 61 70 70 65 6e 64 20 | 73 75 66 66 73 20 24 6c |lappend |suffs $l|
|000048a0| 61 73 74 0d 09 09 09 09 | 73 65 74 20 66 69 72 73 |ast.....|set firs|
|000048b0| 74 20 30 0d 09 09 09 7d | 20 65 6c 73 65 20 7b 0d |t 0....}| else {.|
|000048c0| 09 09 09 09 61 70 70 65 | 6e 64 20 73 75 66 66 73 |....appe|nd suffs|
|000048d0| 20 22 2c 20 24 6c 61 73 | 74 22 0d 09 09 09 7d 0d | ", $las|t"....}.|
|000048e0| 09 09 7d 0d 09 09 73 65 | 74 20 6c 61 73 74 20 24 |..}...se|t last $|
|000048f0| 73 75 66 0d 09 7d 0d 09 | 61 70 70 65 6e 64 20 74 |suf..}..|append t|
|00004900| 65 78 74 20 22 4d 6f 64 | 65 20 73 75 66 66 69 78 |ext "Mod|e suffix|
|00004910| 65 73 3a 20 24 73 75 66 | 66 73 5c 72 5c 72 22 0d |es: $suf|fs\r\r".|
|00004920| 09 0d 09 73 65 74 20 66 | 69 72 73 74 20 31 0d 09 |...set f|irst 1..|
|00004930| 61 70 70 65 6e 64 20 74 | 65 78 74 20 22 4d 6f 64 |append t|ext "Mod|
|00004940| 65 20 6d 65 6e 75 73 3a | 20 22 0d 09 69 66 20 7b |e menus:| "..if {|
|00004950| 5b 69 6e 66 6f 20 65 78 | 69 73 74 73 20 6d 6f 64 |[info ex|ists mod|
|00004960| 65 4d 65 6e 75 73 28 24 | 6d 6f 64 65 29 5d 7d 20 |eMenus($|mode)]} |
|00004970| 7b 0d 09 09 66 6f 72 65 | 61 63 68 20 6d 20 24 6d |{...fore|ach m $m|
|00004980| 6f 64 65 4d 65 6e 75 73 | 28 24 6d 6f 64 65 29 20 |odeMenus|($mode) |
|00004990| 7b 0d 09 09 09 69 66 20 | 24 66 69 72 73 74 20 7b |{....if |$first {|
|000049a0| 0d 09 09 09 09 73 65 74 | 20 66 69 72 73 74 20 30 |.....set| first 0|
|000049b0| 0d 09 09 09 09 6c 61 70 | 70 65 6e 64 20 74 65 78 |.....lap|pend tex|
|000049c0| 74 20 24 6d 0d 09 09 09 | 7d 20 65 6c 73 65 20 7b |t $m....|} else {|
|000049d0| 0d 09 09 09 09 61 70 70 | 65 6e 64 20 74 65 78 74 |.....app|end text|
|000049e0| 20 22 2c 20 24 6d 22 0d | 09 09 09 7d 0d 09 09 7d | ", $m".|...}...}|
|000049f0| 0d 09 7d 0d 09 61 70 70 | 65 6e 64 20 74 65 78 74 |..}..app|end text|
|00004a00| 20 22 5c 72 5c 72 22 0d | 0d 09 61 70 70 65 6e 64 | "\r\r".|..append|
|00004a10| 20 74 65 78 74 20 22 4d | 6f 64 65 2d 73 70 65 63 | text "M|ode-spec|
|00004a20| 69 66 69 63 20 76 61 72 | 69 61 62 6c 65 73 3a 5c |ific var|iables:\|
|00004a30| 72 22 0d 09 69 66 20 7b | 5b 69 6e 66 6f 20 65 78 |r"..if {|[info ex|
|00004a40| 69 73 74 73 20 24 7b 6d | 6f 64 65 7d 6d 6f 64 65 |ists ${m|ode}mode|
|00004a50| 56 61 72 73 5d 7d 20 7b | 0d 09 09 66 6f 72 65 61 |Vars]} {|...forea|
|00004a60| 63 68 20 76 20 5b 6c 73 | 6f 72 74 20 5b 61 72 72 |ch v [ls|ort [arr|
|00004a70| 61 79 20 6e 61 6d 65 73 | 20 24 7b 6d 6f 64 65 7d |ay names| ${mode}|
|00004a80| 6d 6f 64 65 56 61 72 73 | 5d 5d 20 7b 0d 09 09 09 |modeVars|]] {....|
|00004a90| 61 70 70 65 6e 64 20 74 | 65 78 74 20 5b 66 6f 72 |append t|ext [for|
|00004aa0| 6d 61 74 20 22 5c 74 25 | 2d 32 30 73 3a 20 5c 22 |mat "\t%|-20s: \"|
|00004ab0| 25 73 5c 22 5c 72 22 20 | 24 76 20 5b 73 65 74 20 |%s\"\r" |$v [set |
|00004ac0| 24 7b 6d 6f 64 65 7d 6d | 6f 64 65 56 61 72 73 28 |${mode}m|odeVars(|
|00004ad0| 24 76 29 5d 5d 0d 09 09 | 7d 0d 09 7d 0d 0d 0d 09 |$v)]]...|}..}....|
|00004ae0| 73 65 74 20 65 74 65 78 | 74 20 22 5c 72 4d 6f 64 |set etex|t "\rMod|
|00004af0| 65 2d 69 6e 64 65 70 65 | 6e 64 65 6e 74 20 62 69 |e-indepe|ndent bi|
|00004b00| 6e 64 69 6e 67 73 3a 5c | 72 22 0d 09 61 70 70 65 |ndings:\|r"..appe|
|00004b10| 6e 64 20 74 65 78 74 20 | 22 5c 72 4d 6f 64 65 2d |nd text |"\rMode-|
|00004b20| 73 70 65 63 69 66 69 63 | 20 62 69 6e 64 69 6e 67 |specific| binding|
|00004b30| 73 3a 5c 72 22 0d 09 66 | 6f 72 65 61 63 68 20 62 |s:\r"..f|oreach b|
|00004b40| 20 5b 73 70 6c 69 74 20 | 5b 62 69 6e 64 69 6e 67 | [split |[binding|
|00004b50| 4c 69 73 74 5d 20 22 5c | 72 22 5d 20 7b 0d 09 09 |List] "\|r"] {...|
|00004b60| 73 65 74 20 6c 73 74 20 | 5b 6c 69 6e 64 65 78 20 |set lst |[lindex |
|00004b70| 24 62 20 65 6e 64 5d 0d | 09 09 69 66 20 7b 24 6c |$b end].|..if {$l|
|00004b80| 73 74 20 3d 3d 20 24 6d | 6f 64 65 7d 20 7b 0d 09 |st == $m|ode} {..|
|00004b90| 09 09 61 70 70 65 6e 64 | 20 74 65 78 74 20 22 5c |..append| text "\|
|00004ba0| 74 24 62 5c 72 22 0d 09 | 09 7d 20 65 6c 73 65 69 |t$b\r"..|.} elsei|
|00004bb0| 66 20 7b 5b 6c 73 65 61 | 72 63 68 20 24 6d 6f 64 |f {[lsea|rch $mod|
|00004bc0| 65 73 20 24 6c 73 74 5d | 20 3c 20 30 7d 20 7b 0d |es $lst]| < 0} {.|
|00004bd0| 09 09 09 61 70 70 65 6e | 64 20 65 74 65 78 74 20 |...appen|d etext |
|00004be0| 22 5c 74 24 62 5c 72 22 | 0d 09 09 7d 0d 09 7d 0d |"\t$b\r"|...}..}.|
|00004bf0| 09 6e 65 77 20 2d 6e 20 | 22 2a 20 3c 24 6d 6f 64 |.new -n |"* <$mod|
|00004c00| 65 3e 20 4d 4f 44 45 20 | 2a 22 0d 09 69 6e 73 65 |e> MODE |*"..inse|
|00004c10| 72 74 54 65 78 74 20 24 | 74 65 78 74 24 65 74 65 |rtText $|text$ete|
|00004c20| 78 74 0d 09 67 6f 74 6f | 20 30 0d 09 0d 09 73 65 |xt..goto| 0....se|
|00004c30| 74 57 69 6e 49 6e 66 6f | 20 64 69 72 74 79 20 30 |tWinInfo| dirty 0|
|00004c40| 0d 7d 0d 0d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |.}......|........|
|00004c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c80| 00 00 01 00 00 00 03 40 | 00 00 02 40 00 00 00 42 |.......@|...@...B|
|00004c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004cb0| 09 6d 6f 64 65 73 2e 74 | 63 6c 02 00 02 00 54 45 |.modes.t|cl....TE|
|00004cc0| 58 54 41 4c 46 41 01 00 | ff ff ff ff 00 00 00 00 |XTALFA..|........|
|00004cd0| 02 00 54 45 58 54 41 4c | 46 41 01 00 ff ff ff ff |..TEXTAL|FA......|
|00004ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cf0| 00 00 a9 54 ef 8a 00 00 | 4b c5 00 00 03 82 20 24 |...T....|K..... $|
|00004d00| 74 68 69 6e 6b 4d 65 6e | 75 0d 73 6f 75 72 63 65 |thinkMen|u.source|
|00004d10| 20 24 48 4f 4d 45 3a 74 | 63 6c 3a 53 79 73 74 65 | $HOME:t|cl:Syste|
|00004d20| 6d 43 6f 64 65 3a 74 68 | 69 6e 6b 2e 74 63 6c 0d |mCode:th|ink.tcl.|
|00004d30| 69 6e 73 65 72 74 4d 65 | 6e 75 20 24 74 68 69 6e |insertMe|nu $thin|
|00004d40| 6b 4d 65 6e 75 0d 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d |kMenu...|#=======|
|00004d50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004d60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004d70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004d80| 00 00 01 f0 00 18 00 00 | 21 b2 00 00 21 b2 0d 46 |........|!...!..F|
|00004d90| 6f 72 74 4d 61 72 6b 46 | 69 6c 65 00 00 00 41 fa |ortMarkF|ile...A.|
|00004da0| 00 00 41 fa 0d 61 63 74 | 69 76 61 74 65 48 6f 6f |..A..act|ivateHoo|
|00004db0| 6b 00 00 00 32 fc 00 00 | 32 fc 0b 61 64 64 57 69 |k...2...|2..addWi|
|00004dc0| 6e 4e 61 6d 65 00 00 00 | 2a 55 00 00 2a 55 0f 62 |nName...|*U..*U.b|
|00004dd0| 75 69 6c 64 46 6c 61 67 | 73 56 61 72 73 00 00 00 |uildFlag|sVars...|
|00004de0| 36 e2 00 00 36 e2 0b 63 | 68 61 6e 67 65 4d 6f 64 |6...6..c|hangeMod|
|00004df0| 65 00 00 00 3f 35 00 00 | 3f 35 09 63 6c 6f 73 65 |e...?5..|?5.close|
|00004e00| 48 6f 6f 6b 00 00 30 89 | 00 00 30 89 0f 64 65 61 |Hook..0.|..0..dea|
|00004e10| 63 74 69 76 61 74 65 48 | 6f 6f 6b 00 00 00 46 ea |ctivateH|ook...F.|
|00004e20| 00 00 46 ea 0d 64 65 73 | 63 72 69 62 65 4d 6f 64 |..F..des|cribeMod|
|00004e30| 65 00 00 00 43 6c 00 00 | 43 6c 09 64 69 72 74 79 |e...Cl..|Cl.dirty|
|00004e40| 48 6f 6f 6b 00 00 01 b1 | 00 00 01 b1 13 67 65 74 |Hook....|.....get|
|00004e50| 4d 6f 64 65 56 61 6c 75 | 65 73 41 6c 70 68 61 00 |ModeValu|esAlpha.|
|00004e60| 00 00 35 ed 00 00 35 ed | 07 6d 65 6e 75 57 69 6e |..5...5.|.menuWin|
|00004e70| 00 00 30 04 00 00 30 04 | 07 6e 65 77 4d 6f 64 65 |..0...0.|.newMode|
|00004e80| 00 00 0f 21 00 00 0f 21 | 0b 6e 65 77 4d 6f 64 65 |...!...!|.newMode|
|00004e90| 56 61 72 00 00 00 3c af | 00 00 3c af 09 6f 70 65 |Var...<.|..<..ope|
|00004ea0| 6e 48 6f 6f 6b 00 00 00 | 44 19 00 00 44 19 09 71 |nHook...|D...D..q|
|00004eb0| 75 69 74 48 6f 6f 6b 00 | 00 00 34 c0 00 00 34 c0 |uitHook.|..4...4.|
|00004ec0| 0d 72 65 6d 6f 76 65 57 | 69 6e 4e 61 6d 65 00 00 |.removeW|inName..|
|00004ed0| 31 91 00 00 31 91 0b 72 | 65 73 75 6d 65 48 6f 6f |1...1..r|esumeHoo|
|00004ee0| 6b 00 00 00 3d 5c 00 00 | 3d 5c 09 73 61 76 65 48 |k...=\..|=\.saveH|
|00004ef0| 6f 6f 6b 00 00 00 2b ea | 00 00 2b ea 0d 73 61 76 |ook...+.|..+..sav|
|00004f00| 65 56 61 72 56 61 6c 75 | 65 73 00 00 40 53 00 00 |eVarValu|es..@S..|
|00004f10| 40 53 0b 73 61 76 65 61 | 73 48 6f 6f 6b 00 00 00 |@S.savea|sHook...|
|00004f20| 39 6f 00 00 39 6f 0d 73 | 65 74 4d 6f 64 65 4d 65 |9o..9o.s|etModeMe|
|00004f30| 6e 75 73 00 00 00 05 c5 | 00 00 05 c5 0f 73 65 74 |nus.....|.....set|
|00004f40| 4d 6f 64 65 56 61 72 41 | 6c 70 68 61 00 00 2e f4 |ModeVarA|lpha....|
|00004f50| 00 00 2e f4 0b 73 65 74 | 57 69 6e 4d 6f 64 65 00 |.....set|WinMode.|
|00004f60| 00 00 30 a7 00 00 30 a7 | 0b 73 75 73 70 65 6e 64 |..0...0.|.suspend|
|00004f70| 48 6f 6f 6b 00 00 00 48 | 00 09 4d 6f 6e 61 63 6f |Hook...H|..Monaco|
|00004f80| 00 00 00 69 18 ec 00 00 | 00 00 00 80 1d 9e 00 03 |...i....|........|
|00004f90| 22 52 03 0d 00 74 32 fc | 00 00 00 04 00 04 00 28 |"R...t2.|.......(|
|00004fa0| 00 03 01 ca 02 79 00 28 | 00 03 01 ca 02 79 aa a5 |.....y.(|.....y..|
|00004fb0| 9d ba 00 00 44 19 00 00 | 44 19 00 00 44 19 01 00 |....D...|D...D...|
|00004fc0| 00 00 01 00 00 00 03 40 | 00 00 02 40 00 00 00 42 |.......@|...@...B|
|00004fd0| 00 69 18 ec 0c 7e 00 00 | 00 1c 00 3e 00 00 4d 50 |.i...~..|...>..MP|
|00004fe0| 53 52 00 01 00 0a 03 ef | 00 00 00 00 00 00 00 00 |SR......|........|
|00004ff0| 00 00 03 ed ff ff 00 00 | 01 f4 00 6c e6 e4 03 74 |........|...l...t|
|00005000| 61 62 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ab......|........|
|00005010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
